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1  INTRODUCTION 

This  program  was  required  to  display  radar  cross-section  (RCS)  data  collected  from  field  trials 
allowing  the  comparison  of  one  plot  with  another  and  the  processing  of  the  raw  data  to  produce  a  scries 
of  plots  of  average  RCS  for  various  aspect  angles.  This  task  therefore  involved  writing  a  program  that 
could  align  and  then  combine  two  graphs.  The  program  was  structured  so  that  the  user  could 
methodically  combine  the  collected  data,  then  produce  an  average  RCS  profile  for  a  particular  aspect 
angle  of  a  ship.  The  data  to  be  processed  consisted  of  amplitude  returns  from  a  frequency  swept 
microwave  signal  centred  on  the  ship  being  measured.  Each  data  set  consists  of  255  equally  spaced 
points  which  represent  the  relative  range  in  the  cross-section  profile  being  looked  at  and  the 
corresponding  amplitude  RCS  at  each  range  point. 

Because  the  increment  between  distance  measurements  is  constant  and  each  data  set  has  the  same 
number  of  data  points,  combining  the  graphs  could  be  achieved  quite  simply.  However  for  more 
complex  data  sets  with  non-linear  abscissa  values  this  section  of  the  program  would  need  to  be  replaced 
by  a  more  sophisticated  process. 

When  Graph  Match  is  used  to  combine  RCS  profiles  the  user  first  selects  a  back  chart  then  combines  it 
with  a  front  chart.  The  overlying  front  chart  can  be  moved  and  rescaled  to  allow  for  small  movements 
or  changes  in  foreshortening  during  a  measurement.  Finally  the  two  charts  may  be  combined  using  any 
specified  weighting.  The  data  may  then  be  transformed  before  plotting  so  that  actual  units  (dBm2)  are 
represented  on  the  axes,  or  transformed  from  a  logarithmic  scale  to  a  linear  scale.  Data  may  also  be 
transformed  back  to  its  original  units  prior  to  saving  the  processed  RCS  profile. 

The  Apple  Macintosh  computer  was  chosen  because  of  its  "user  friendly"  operating  system  and  excellent 
graphics.  Also  for  the  Macintosh  it  is  easy  to  write  interactive  graphic  programs  due  to  an  extensive 
"tool  box"  of  routines  incorporated  in  the  operating  system.  Graph  Match  runs  on  either  a  Macintosh  SE 
or  Macintosh  II,  and  makes  full  use  of  colour  when  it  is  available.  The  Macintosh  guidelines  for 
writing  applications  have  been  diligently  followed  hence  this  Macintosh  program  looks  similar  to 
other  Macintosh  applications. 


2  GRAPH  MATCH  PROGRAM 


2.2  Input  data  specification 

A  graph  or  chart  is  stored  as  a  composite  file  where  the  first  4  lines  contain  header  information 
and  subsequent  lines  contain  coordinate  (x,y)  pairs.  Two  types  of  files  may  be  input  to  the 
program:  either  raw  data  files  or  files  already  created  by  the  program. 

In  the  case  of  raw  data,  the  first  line  contains  the  file  name.  The  next  3  lines  contain  details 
concerning  the  file.  The  coordinate  pairs  are  in  integer  form;  the  x-value  ranging  from  0  to  255 
and  the  y-value  ranging  from  0  to  400.  Typically  these  files  contain  256  coordinate  pairs. 

In  the  case  of  program-generated  files,  the  first  line  contains  the  file  name.  However,  the  next  3 
header  lines  differ  in  content  from  raw  data  files.  For  a  combined  chart,  line  2  contains  the  name 
of  the  file  used  for  the  back  chart  and  the  weighting  value  used  and  line  3  contains  the  name  of 
the  file  used  for  the  foreground  chart  and  its  weighting  value  (These  details  can  be  viewed  using 
Graph  Details  found  in  the  Screen  menu).  The  subsequent  coordinate  pairs  will  be  real  values. 

Currently  the  program  is  setup  to  combine  files  with  256  coordinate  pairs  although  a  file  with  a 
different  number  is  accepted. 

A  file  may  contain  up  to  1000  coordinate  pairs.  Such  a  file  can  be  successfully  displayed  and 
have  its  values  altered.  However,  when  files  are  to  be  combined  the  x-values  in  both  files  after 
all  mathematical  adjustments  have  taken  place  must  be  in  the  range  -100  to  400  for  the  combining 
process  to  occur  successfully. 
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2.3  Program  description 

2.3.1  What  the  display  shows 

Graph  Match  has  been  written  to  display  data  sets  as  graphs  allowing  their  direct  visual 
comparison.  The  graphs  can  be  displayed  with  a  grid  and  with  or  without  a  numbered 
axis.  The  front  graph  may  be  moved  and  its  size  changed  with  respect  to  the  back  graph; 
viewing  of  this  rescaling  and  moving  of  the  front  graph  being  the  main  function  of  the 
display.  When  the  user  is  satisfied  that  the  two  graphs  are  visually  matched,  they  can 
then  be  combined  to  form  an  average  graph  which  is  displayed  along  with  the  front  and 
back  graphs  from  which  it  was  evaluated. 

Graphs  may  be  displayed  overlaid  one  over  the  other,  or  split  into  three  windows  where 
the  hard  black-lined  top  graph  is  the  back  chart  and  the  thinner-lined  lower  graph  is  the 
front  chart.  A  combined  chart  will  be  overlaid  on  or  displayed  between  the  charts.  A 
front,  back  or  combined  chart  or  any  combination  thereof  may  be  displayed  by  selecting 
from  items  found  in  the  Ssistm  menu.  When  the  item  has  a  tick  alongside  it,  that 
indicates  it  is  turned  on. 

As  is  typical  with  a  Macintosh  application  the  display  also  shows  pop-up  dialogue  boxes 
and  pull-down  menus  for  user  input  and  program  control.  For  users  of  MacIIs  with  colour 
displays  there  is  a  menu  called  C©2®oi  which  allows  the  three  different  charts  to  be 
displayed  in  contrasting  colours. 


Figure  1  Sample  screen 


3 


ERL-0505-GD 


2.3.2  How  to  use  the  program 

Loading  data 

When  data  is  loaded  into  memory  it  can  be  read  in  directly  or  transformed  by  specifying 
the  required  arithmetic  operations.  In  the  first  case  the  1FJ3®  menu  is  pulled  down  and  the 
back  chart  chosen.  Next  the  front  chart  is  chosen.  This  chart  may  then  be  repositioned  or 
rescaled. 

If  a  transformation  is  required,  the  arithmetic  operations  are  specified  by  selecting  Ssl 
Hiidk  and/or  S«4  IFft&mtt  Txjmsioxxnirtltiim  from  the  HI®  menu  and 

then  filling  in  the  dialogue  box(es).  Back  chart  and  front  chart  are  then  chosen  in  the 
normal  manner. 
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Figure  2  Transformation  dialogue  box 
Altering  graph  size  and  position 

The  front  chart  may  be  moved  tefH,  rigM,  and  ®|p  or  by  selecting  from  the  Mot® 

menu,  made  *lfa©irt«ir,  tailor,  morrow®!  or  wM«ir  using  the  menu  until  the  user 

is  satisfied  that  it  is  matched  with  the  back  chart.  The  magnitude  of  the  changes  may  be 
selected  to  be  1, 2, 5  or  10  percent  of  the  back  chart  ranges. 

As  an  alternative  to  moving  the  front  chart  left  or  right  the  data  may  be  wrapped  around, 
which  involves  taking  a  part  of  the  graph  from  one  end  and  transforming  it  to  the  other 
end.  This  effectively  repositions  the  peaks  and  troughs  of  the  front  chart.  The  'wxapltfl 
and  wiraprigM  functions  move  the  data  by  1,  2,  5  or  10  data  items  to  the  left  or  right,  and 
are  found  in  the  Move  menu. 
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If  the  user  wishes  to  return  an  altered  front  chart  to  its  original  position  and  size  this  can 
be  done  using  the  R®s2s®  i©  Scr®*©  command  found  in  the  Resize  menu.  However,  this 
will  not  work  where  the  chart  has  been  wrapped  around. 

Combining  graphs 

When  the  optimum  match  between  the  front  and  back  charts  has  been  found,  the  charts  can 
then  be  weighted  and  combined.  The  charts  y-values  may  be  averaged  for  corresponding  x- 
values.  The  number  of  data  items  in  the  combined  chart  that  is  created  corresponds  to  the 
number  of  data  items  in  the  back  chart  present.  Alternatively,  since  they  may  be  on  a 
logarithmic  scale  before  combining,  the  y-values  may  be  divided  by  a  constant,  converted 
to  a  linear  scale,  then  added.  The  process  is  then  reversed  to  display  the  combined  graph 
in  the  original  logarithmic  scale.  Combi©®  and  ©Log  commands  are  found  in  the 
AmaHysils  menu. 

Any  weighting  may  be  specified  with  the  C©mbi©l®g  RaM©  command. 


Combine  n-logged  Data 
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Cancel 


OK 


r  Chart  Combining  Ratio 

Back  Front 

3.6 

1 

* 

Figure  3  Combining  Ratio  Dialogue  Boxes 


Printing  graphs 

For  the  purpose  of  taking  a  hard  copy  of  the  computer  screen  there  is  a  Mmd  command 
found  in  the  HI®  menu.  When  this  is  invoked,  whatever  is  on  the  screen  will  be  sent  to 
the  printer.  What  is  displayed  is  determined  by  the  settings  in  the  §<cir®«©  menu,  or  if  two 
charts  have  just  been  combined  only  the  combined  chart  will  be  displayed.  If  the  Giapih 
BtftaMa  (header  information)  are  displayed  the  print  item  is  made  grey  and  cannot  be 
selected.  To  print  the  graph(s)  the  page  setup  is  specified  using  the  dialogue  box  to  select 
orientation,  quality  and  quantity  of  prints  required. 

Saving  data 

Saving  data  is  similar  to  loading  data.  Firstly,  standard  Macintosh  system  Input/Output 
dialogue  boxes  are  used,  secondly  data  may  be  saved  as  displayed,  or  transformed  prior  to 
saving.  §*H  IFt©©1!  Timaafcxmaii©©  or  §«$  Comb  TirimsifomaiilU®©  (found  in  the 
Jill®  menu)  can  be  selected,  then  the  Sot*  IP®ir«gir©®md  or  Save  C©a®bim»<li©© 
commands  (found  in  the  Ml®  menu)  entered.  The  only  apparent  difference  to  the  user 
between  saving  and  loading  data  is  that  when  saving  data  the  user  must  specify  a  new 
filename  rather  than  choose  from  a  list  of  them. 

Saved  data  sets  have  four  header  information  lines  which  means  they  can  be  reloaded  by 
Graph  Match  as  new  charts. 
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An  overview  of  the  sequence  of  steps  involved  in  using  Graph  Match  follows: 


Figure  4  Functional  Chart 

2.3.3  Programmer's  guide 

The  program  was  written  using  Borland's  Turbo  Pascal  Version  1.0  (Borland  1986)  to  edit 
and  compile  the  main  source  code.  Menu  details,  window  specification,  dialogue  box  and 
item  declarations  and  other  required  Mac  program  items  were  created  then  modified  using 
Apple  Computer's  Resedit  program. 

Throughout  the  program  many  of  the  variable  names  are  self-explanatory.  Extensive  use 
is  made  of  global  variables  . 

Except  for  transformation  details,  all  of  the  data  necessary  to  manipulate,  display,  and 
save  the  three  different  charts  is  kept  in  a  chart  data  record  type.  The  three  globally 
declared  variables  which  use  this  record  type  are  back,  front  and  combo. 

Currently  dialogue  box  information  which  is  kept  in  the  resource  file  can  be  purged.  Thus 
if  the  program  disk  is  not  in  the  computer  when  a  dialogue  box  is  required,  it  must  be 
inserted  before  the  dialogue  box  will  appear. 
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3  DISCUSSION 


3.1  Suggestions 


First  priority  should  be  to  improve  the  basic  shell  to  facilitate  automatic  event  driven  window 
updating.  The  shell  used  was  taken  from  another  Mac  program.  Currently  this  shell  does  not 
correctly  cater  for  window  updates  by  responding  to  update  events  in  the  normal  manner. 
Consequently  the  procedure  Redoscreen  handles  the  screen  update  requirements  necessary  with 
dialogue  boxes  and  general  manipulation  of  data  on  the  screen. 

This  program  could  be  further  developed  to  make  it  more  versatile  and  general  in  its 
applications.  One  area  that  needs  development  is  the  method  of  combining  data  when  the 
number  of  data  values  of  the  front  and  back  charts  are  different.  Other  useful  developments 
would  be  to  make  dialogue  box  information  unpurgeable,  and  to  make  the  currently  unavailable 
items  in  the  lEdliil  menu  fully  operational,  especially  the  BMn  display  function  which  has 
been  partially  developed  but  not  incorporated  in  the  current  release  version  of  Graph  Match 
(refer  to  figure  5). 


Further  development  of  the  combination  feature  would  require  careful  attention  to  the 
mathematics  used. 
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Figure  5  Dita  Display 


3.2  Limitations 

Some  printing  commands  need  altering  if  the  program  is  to  be  run  on  a  Macintosh  SE. 
Currently  the  program  is  setup  to  combine  files  with  256  coordinate  pairs  although  a  file  with  a 
different  number  is  accepted. 
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3.3  Recommendations 

While  this  program  manipulates  RCS  data  adequately  it  needs  further  work  to  make  it  a  more 
general  and  versatile  program.  As  we  are  not  aware  of  any  commercial  software  that  can 
perform  the  types  of  functions  outlined.  Graph  Match  provides  a  basis  for  further  development  of 
its  software  as  required. 
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APPENDIX  I 

PROGRAM  SOURCE  CODE  LISTING 


program  GraphMatch;  {  Author  Mar  Barrington  7-Dec-1988  } 


($R+) 

{ 

Turn 

on  range  checking 

} 

{$1+} 

{ 

Turn 

on  I/O  error  checking 

} 

( $B+ } 

{ 

Set 

bundle  bit  (for  icon,  etc.) 

} 

{ $R  Gr  Mt.Rsrc} 

{ 

Identify  resource  file 

} 

{ $T  APPLPenn} 

{ 

Set 

application  ID 

} 

{$U-} 

{ 

Turn 

off  auto  link  to  runtime  units 

} 

{$S+} 

uses  PasInOut, SANE 

, Pasprinter, Memtypes, QuickDraw, OSIntf , Toollntf , 

PackI 

MacPrint; 

const 

MenuCnt 

= 

8 

{  total  #  of  menus 

} 

ApplMenu 

= 

1000 

{  resource  ID  of  Apple  Menu 

} 

FileMenu 

= 

1001 

{  resource  ID  of  File  Menu 

} 

EditMenu 

= 

1002 

{  resource  ID  of  Edit  Menu 

} 

screenMenu 

= 

1003 

{  resource  ID  of  Screen  control  Menu 

} 

MoveMenu 

= 

1004 

{  resource  ID  of  Move  Menu 

} 

ResizeMenu 

= 

1005 

{  resource  ID  of  Resize  Menu 

} 

AnalysisMenu 

= 

1006 

{  resource  ID  of  Analysis  menu 

} 

ColourMenu 

= 

1007 

{  resource  ID  of  Colour  Choice  Menu 

} 

AppleM 

= 

1 

{  index  into  MenuList  for  Apple  Menu 

} 

FileM 

= 

2 

{  index  into  menulist  for  File  Menu 

} 

EditM 

= 

3 

{  ditto  for  Edit  Menu 

} 

screenM 

= 

4 

{  ditto  for  Screen  Menu 

} 

MoveM 

= 

5 

{  ditto  for  Move  Menu 

} 

ResizeM 

= 

6 

{  ditto  for  Resize  Menu 

} 

AnalysisM 

= 

7 

{  ditto  for  Analysis  menu 

} 

ColourM 

= 

8 

{  ditto  for  Colour  Menu 

) 

MainID 

= 

1000 

{  resource  ID  for  MainWindow 

} 

DatWID 

= 

1001 

{  resource  ID  for  data  Window 

} 

nLogdlglD 

= 

1001 

{  resource  ID  for  dialog  box 

} 

trnsfrm_dlgID 

= 

1002 

{  resource  ID  for  dialog  box 

} 

Yes_No_dlgID 

1003 

{  resource  ID  for  dialog  box 

} 

NegNumdlglD 

= 

1004 

{  resource  ID  for  dialog  box 

} 

ComRatiodlglD 

= 

1005 

{  resource  ID  for  dialog  box 

} 

SaveDialoguID 

- 

1006 

{  resource  Id  for  dialog  box 

} 

AboutID 

=: 

1000 

{  resource  ID  for  dialog  box 

} 

{  Title  About  Graph  Match 

{  ~0 

} 

} 

{  "1 

{  A2 

#1  OK 

} 

} 

TextllD 

= 

1000 

{  resource  IDs  for  'About...'  text 

) 

Text2ID 

= 

1001, 

Text3ID 

= 

1002, 

SaveAlert 

= 

1001 

{  resource  ID  of  save  file  alert 

} 

{  Title 

} 

{  *0 

} 

} 

{  #1  Yes 

#2  No 

#3  Cancel 

OKagainalert 

= 

1009 

{  A0  "1  OK  Try  again 

) 

myCursID 

= 

1000 

{  resource  ID  for  myCursor 

) 

myCursor 

= 

5 

(  array  index  for  myCursor 

1 

BSize 

= 

640 

{  buffer  size  for  Disk  I/O  prev 

512 

} 

BCount 

= 

480 

{  buffer  count  for  Disk  I/O  prev 

256 

} 

put_up 

true 
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remove 

=  false; 

maxplot 

=  1000; 

useEXscreen 

=  0 

85; 

useWYscreen 

=  0 

85; 

type 

chart_data_type  =  record 

EX,  WY  :  array [1 . .maxplot]  of  real  ;  {The  Data) 
is_read,  set_to_display,  showing:  boolean;  penpat:  pattern; 

last_point,  colour,  line_thickness • :  integer; 

EXmin,  EXmax,  WYmin,  WYmax,  EXrange,  WYrange, 

EXoffset,  WYoffset, 

EXoffscale,  WYoffscale  :  real  ; 

line_zero, line_one, line_two, 
line_three  :  string[80]  ; 
end  ; 

?chart_data_type  =  '"chart_data_type; 

transtype  =  (  tnone, tadd, tminus, ttimes, tdiv, tlog, tin, talog, tain  ); 
transform_type  =  array [1 . . 4 ] of 

record 

ttype  :  transtype  ; 

:  real  ; 

end  ; 

CursorList  =  array [ iBeamCursor . .myCursor]  of  CursHandle; 

Ptrlnteger  =  "'integer; 

PtrString  =  ~str255; 

string80  =  string[80] ; 

string255  =  string[255); 

var  {  graph  match  vars  follow  } 


f ileselected,  {  Used  in  Read_chart_f ile  } 
ok,  info_up,  {  Graph  details  displayed,  other  items  not  avail.  } 
grid__up,  {  grid  is  required,  and  redone  every  clearwindow  } 
axis_up,  {  axis  are  added  when  this  global  boolean  is  true  } 
overlaid,  {  front,  back  and  combo  plotted  over  one  another  } 
wiped,  {  true  if  during  move  or  resize  plot  is  not  up  } 
comb_just_put_up, {  determines  display  immediately  after  combining  } 
normal_comb,  {  the  front  and  back  records  are  combined  } 
nlog_comb,  {  logged  front  and  back  records  combined  } 
this_front_saved, {  facilitates  tick, indicates  graph  is  saved  } 
this_combo_saved, {  facilitates  tick,  indicates  graph  is  saved  } 
MacII,  {  Used  in  setting  up  printing  details  } 
sepia,  {  if  this  flagged  backpat  is  75%  white, 25%  yellow  } 
list_up,  {  if  data  set  editing  occurring  then  menus  greyed  } 
Finished  :  boolean;}  used  to  terminate  the  program  } 
pf ilename : string80; {  used  in  Read_chart_f ile  } 
infile  :  Text  ;  {  used  in  Read_chart_file  } 
front_EX_trans,  {  details  for  transformation  of  front  x  data.  } 
front_WY_trans,  {  details  for  transformation  of  front  y  data.  } 
back_EX_trans,  {  details  for  transformation  of  front  x  data.  } 
back_WY_trans,  {  details  for  transformation  of  front  y  data.  } 
save_EX_trans,  {  details  for  transformation  of  front  x  data.  } 
save_WY_trans,  {  details  for  transformation  of  front  y  data.  } 
combo_EX_trans,  {  details  for  transformation  of  combo  x  data.  } 
combo_WY_trans:  transform_type; {transformation  of  combined  y  data.  ) 
back,  {  charts  are  Globally  decl.  chart  storage  array  } 
front,  {  charts  are  Globally  decl.  chart  storage  array  } 
combo:  Achart_data_type; {charts  Globally  decl.  chart  storage  array  } 
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window_EX_scale,  {  used  as  general  scaling  const  changed  by  grow  } 
window_WY_scale,  {  used  as  general  scaling  const  changed  by  grow  } 
prev_EX_scale,  {  Grow-compare  with  standard  to  rescale  move  const  } 
prev_WY_scale,  {  Grow-compare  with  standard  to  rescale  move  const  } 
back_weight,  {  ratio  for  weighting  when  combining  } 
front_weight  :real;{  ratio  for  weighting  when  combining  } 
cross_point,  {  used  to  store  cross  location  for  erasing.  } 
zero_point:  point  ;{  zero_point  is  used  to  set  points  to  0,0  } 
percent_change,  {  How  much  to  move  or  resize  front  graph  } 
liftback,  {  if  split  screen,  move  the  back  up  to  the  top  } 
EXwindowdots,  {  The  number  of  dots  available  in  the  window  } 
WYwindowdots,  {  Dots  are  altered  during  Grow  } 
prt_x_mv_pixel ,  {  add  to  reposition  window  for  laserprinter .  } 
prt_y_mv_pixel,  {  add  to  reposition  window  for  laserprinter.  } 
printEXoff set,  {  set  to  80  in  Init,  dependant  on  SE/MacII.  } 
printWYoff set,  {  set  to  80  in  Init,  dependant  on  SE/MacII.  } 
scale_option,  {  Set  by  Menu  method  of  make_scale  } 
grid_colour,  {  Colour  of  the  grid  must  contrast  to  back  g.nd  } 
cross_colour,  {  colour  for  marker  cross  &  displayed  values.  } 
x_y_values_col,  {  &  matching  displayed  values.  } 
graphdetails_col,  {  Graph  Details  writing  colour  } 
axis_colour,  {  Colour  of  the  axis  } 
numbers_colour,  {  Colour  of  the  axis  numbers.  } 
background_colour,  {  Colour  of  the  background  } 
foreground_colour,  {  Colour  of  the  foreground  pencolour  } 
the_colour_choice  :  integer  ;  {  colour  of  srceen,  grid  and  plots  } 
any_changes_to_file  :boolean;  {  may  be  used,  but  is  a  leftover.  } 
Ticks  :  Longint;  {  keeps  track  of  time  } 
TV, TH  :  Integer;  {  location  of  text  } 
theEvent  :  EventRecord;  {  event  passed  from  operating  system  } 
{  Screen  stuff  } 

DragArea  :  Rect;  {  defines  area  where  window  can  be  dragged  } 


GrowArea  :  Rect;  {  defines  area  to  which  windows  size  change} 
ScreenArea  :  Rect;  {  defines  screen  dimensions  } 

CursList  :  CursorList;  {  used  to  hold  cursor  handles  } 

{  Menu  stuff} 

MenuList  :  array [ 1 .. MenuCnt ]  of  MenuHandle;  {holds  menu  info} 

{  Window  stuff  } 

DatWPtr,  {  pointer  to  data  view  window  } 

MainPtr  :  WindowPtr;  {  pointer  to  main  window  } 

DatWRec,  {  window  for  data  viewing  } 

MainRec  :  WindowRecord;  {  holds  data  for  main  window  } 

MainPeek  :  WindowPeek;  {  pointer  to  MainRec  } 

ScreenPort  :  GrafPtr;  {  pointer  to  entire  screen  } 

FrontWindow  :  WindowPtr;  {  pointer  to  active  window  } 

{  program  specific  stuff} 

VFlag  :  boolean; 

Reply  :  SFReply; 

SPtr  :  StringPtr; 

test_string  :  str255  ; 

procedure  ClearWindow (WPtr  :  WindowPtr); 

1  purpose  clears  window,  draws  grow  stuff,  sets  location  } 

var 

TRect  :  Rect; 

begin 

if  (WPtr  =  MainPtr)  and  (Wptr  =  FrontWindow  )  then 
begin 

backcolor (background_colour)  ; 
forecolor (yellowcolor)  ; 

if  sepia  then  backpat (ltgray)  else  backpat(white); 

EraseRect (WPtrA .portRect)  ;  {  clear  rect  area  of  window  } 

backA . showing  :=  false  ; 
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front'' .  showing  :=  false  ; 
combo'' .  showing  :=  false  ; 
pens ize (0,0)  ; 

DrawGrowIcon (WPtr ) ;  {  draw  grow  icon  } 

TH  :=  5;  TV  :=  12  {  set  text  loc  to  upper  left  } 

end 

end;  {  of  proc  ClearWindow  } 


procedure  Wipewindow (WPtr  :  WindowPtr) ; 

{  purpose  clears  window,  draws  grow  stuff,  sets  location  } 

var 

TRect  :  Rect; 

begin 

if  (WPtr  =  MainPtr)  and  (Wptr  =  FrontWindow  )  then 


begi*' 

backcolor (background_colour ) 
EraseRect ( WPtr A . portRect ) ; 
pensize(0,0)  ; 

DrawGrowIcon (WPtr) ; 

TH  :=  5;  TV  :=  12 

end 

end;  {  WipeWindow  } 

procedure  DrawStart (Str  :  String) ; { 
begin 

MoveTo (TH, TV) ; 

Drawstring (Str) ; 

TH  :=  TH  +  StringWidth (Str) 
end;  {  of  proc  DrawStart  } 


{  clear  rect  area  of  window  } 

{  draw  grow  icon  } 

{  set  text  loc  to  upper  left  } 


move  to  text  location,  write  Str  ) 

{  move  to  current  text  location  } 
{  write  on  screen  } 
{  advance  location  to  end  of  str  } 


procedure  RealToStr (Val  :  Real;  var  Str  :  String); 

var  {  purpose  does  conversion  from  real  number  to  string  } 

num_format  :  decform  ; 
begin 

num_format . style  :=  fixeddecimal  ; 
num_format .digits  :=  3  ;{  decimal  points  } 
num2str (num_format, val, Str)  ; 
end;  {  of  proc  RealToStr  } 


function  Int_to_str (i, size: integer) :string80; 

var  s: string; 

begin 

r.umtostring(i,  s)  ; 

while  length  (s)  <  size  do  s:=concatC  1  ,s); 
int_to_str :  =s ; 
end;{Int_to  str) 


procedure  str_to_int (s : str255; var  num: integer;var  ok:boolean); 
{Convert  a  string  to  an  integer  } 
var  i: integer; 

n: longint; 
begin 
i :  =1 ; 

while  i<=length(s)  do 
begin 

if  s[i]=’  1  then  delete (s, i, 1)  else  i:=i+l; 
end; 

ok  :=  length (s)  >  0; 

if  ok  then  for  i:=l  to  length (s)  do 

if  not  (s[i]  in  [ * 0 * . . ’ 9 ’ ] )  then  ok  :=  false; 
if  ok  then  stringtonum(s, n) ; 
if  ok  then  num:=n  else  num:=0; 
end; {str  to  int} 
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procedure  number_stamp (  number : extended;  places, hpos, vpos : integer ) ; 
var 

number_string  :  str255  ; 
num_format  :  decform  ; 
number_rect  :  rect  ; 
store_colour  :  integer  ; 
begin  {  number_stamp  } 

(*  store_colour  :=  fore*) 

(*  setrect (number_rect, hpos, vpos-9, hpos+40, vpos)  ; 
eraserect (number_rect)  ;*) 
textsize(ll)  ; 

Mo veTo (hpos, vpos) ; 

num_format . style  :=  fixeddecimal  ; 

num_format . digits  :=  places  ;{  decimal  points  } 

num2str (num_format, number, number_string)  ;{  forecolor (stamp_colour)  ;} 
PenPat (black)  ; 

Drawstring (number_string)  ; 
end  ;  {  number_stamp  } 

(*$S  Inits  *) 

function  rdreal (s : string80;  var  position: integer; var  ok : boolean) : real; 
var 

len,  i,  neg  :  integer  ; 
num,  fnum,  fact  :  real  ; 

t  :  stringSO  ;  (  t  is  a  working  copy  of  the  input  string  s  ) 
begin  {  rdreal  ) 
len  :=  length (s)  ; 

t  :=  concat(s, '  ')  ;  {  Add  a  blank  to  make  while  loop  easier  } 

ok  :=  false  ; 

num  :=  0  ; 

fnum  :=  0  ; 

fact  :=  1  ; 

neg  :=  1  ; 

if  (  position  >  0  )  and  (  len  >=  position  )  then 
begin 

i  :=  position  ; 

while  (  t[i]  in  ['  ']  )  and  (  i  <  len  )  do  i  :=  i  +  1  ; 

{  Skip  blanks  and  commas  } 
if  t[i]  =  then 
begin 

neg  :=  -1  ; 
i  :=  i  +  1  ; 
end  ; 

if  i  <=  len  then 
begin 

while  (t[i]  in  [ ’ 0 ' . . ' 9 ' ] )  and  (i<=  len)  do 
begin 

num  :=  num  *  10  +  ord(t[i])  -  ord('O')  ; 

{  Build  whole  part  of  number  } 
i  :=  i  +  1  ; 
ok  :=  true  ; 
end  ; 

if  (  i  <=  len  )  and  (  t[i]  =  )  then 

begin  {  fraction  part  } 
i  :=  i  +  1  ; 

while  (  t[i)  in  ['O’..' 9']  )  and  (  i  <=  len  )  do 
begin 

fact  :=  fact  *  0.1  ; 

fnum  :=  fnum  +  fact  *  (  ord(t[i])  -  ord('O')  )  ; 

{  Build  fraction  ) 
i  :=  i  +  1  ; 


ERL-0505-GD 


14 


ok  :=  true  ; 
end  ; 
end  ; 

if  (  i  <=  len  )  then  ok  :=  ok  and  (  t [ i ]  in  ['  )  ; 

{  Number  must  be  terminated  by  end  of  line,  space,  minus,  or  comma.} 
position  :=  i  ;  {  Start  of  next  num  and  end  of  this  number.} 
end  ; 
end  ; 

if  ok  then  rdreal  :=  neg  *  (  num  +  fnum  )  else  rdreal  :=  0  ; 
end  ;  {  rdreal  } 

procedure  top_of_screen_details; {on  screen  info  about  graph} 
begin} top_of_screen_detai 1 s } 

if  backA . is_read  and  backA . set_to_di splay  and  not (comb_just_put_up) 
then 

begin {put  up  back  graphs  name} 

forecolor (backA . colour)  ;{  example  line  under  back  chart  text  } 
penpat (backA .penpat) ; 

pensize (backA . line_thickness, backA . line_thickness) ; 

moveto (  39  +  prt_x_mv_pixel, 13  +  prt_y_mv_pixel  ); 
lineto(  92  +  prt_x_mv_jpixel, 13  +  prt_y_mv_pixel  ); 

pensize (1, 1) ;  textsize (10) ;  penpat (black) ;  {  back  details  text  } 
moveto (  40  +  prt_x_mv_pixel, 12  +  prt_y_mv_pixel  )  ; 
drawstring (  'Back  Chart'  ); 

moveto (  102  +  prt_x_mv_pixel, 12  +  prt_y_mv_pixel  )  ; 
penpat (black) ; 

drawstring (  backA . line_zero  )  ; 
end;  {put  up  back  graphs  name} 

if  frontA . is_read  and  frontA . set_to_di splay  and  not (comb_ just jput_up) 
then 

begin {put  up  front  graphs  name} 

forecolor (frontA .colour)  /{example  line  under  front  chart  text  } 
penpat ( front A . penpat ) ; 

pensize (frontA . line_thickness, frontA . line_thickness) ; 

moveto (  209  +  prt_x_mv_pixel, 14  +  prt_y_mv_pixel  ); 
lineto(  266  +  prt_x_mv_pixel, 14  +  prt_y_mv_pixel  ); 

pensize (1, 1) ;  textsize (10)  ; penpat (black) ; {  front  details  text  } 
moveto (  210  +  prt_x_mv_pixel, 12  +  prt_y_mv_pixel  )  ; 
drawstring (  'Front  Chart'  )  ; 

moveto  (  275  +  prt_x_mv_pixel, 12  +  prt_j/_mv_pixel  )  ; 
penpat (black) ; 

drawstring (  frcntA . line_zero  )  ; 
end;  {put  up  front  graphs  name} 
if (comboA . set_to_display) or (comb_just_put_up)  then 
begin {put  up  combo  graph  indicator} 
forecolor (comboA . colour) ; 

pensize (comboA . line_thickness, comboA . line_thickness) ; 
penpat (comboA . penpat ) ; 

moveto (  389  +  prt_x_mv_pixel, 14  +  prt_y_mv_pixel  ); 
lineto(  466  +  prt_x_mv_pixel, 14  +  prt_y_mv_j?ixel  ); 

textsize (10) ;  pensize (1, 1) ; 
penpat (black) ; 

moveto (  390  +  prt_x_mvj>ixel, 12  +  prt_y_mv_pixel  )  ; 
penpat (black) ; 

drawstring}  'Combined  Chart')  ; 
end; {put  up  combo  graph  indicator} 
forecolor (foreground_colour)  ; 
end;  {top_of_screen_details} 

procedure  centimetre_grid  ; 

var  line  ,  temp_col,  more_lines  :  integer  ; 

begin  {  grid  } 

setcursor (curslist [watchcursor] AA) ; 
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if  grid_up  then 
begin 

if  MacII  then  more_lines  :=  4 
else  more_lines  :=  0  ; 

forecolor (grid_colour)  ; 
penpat (ltgray)  ;  (*penpat (black) ;* ) 
pens ize  (1,1)  ; 

for  line  :=  0  to  (11  +  more_lines)  do  {  horiz  grid  lines  in  cm  } 
begin  {re  below:  28.3464is  a  better  conversion  } 
moveto (prt_x_mv_pixel,  line  *  28  +  prt_y_mv_j>ixel  ); 
lineto (prt_x_mv_pixel+EXwindowdots, 
round ( line*28 ) +prt_y_mv_pixel ) ; 
end  ; 

for  line  :=  0  to  (18  +  more_lines)  do  {vertical  grid  lines,  cm  } 
begin 

moveto  (  line  *  28  +  prt_x_mv_pixel,  prt_y_mv_pixel  )  ; 
lineto  (  line*28+prt_x_mv_pixel, WYwindowdots+prt_y_mv_pixel) ; 
end  ; 
end  ; 

pensize(0,0)  ; 
end  ;  {  centimetre_grid  } 

procedure  grid_and_axis  ; 
var 

EXgrid_penpat,  WYgrid_penpat :  pattern; 

ax i s_ORI G_EX ,  axis_ORIG_WY,  axis_TOP_WY,  ax i s_RI GHT_EX , 
i,  line_colour,  numb_colour,  EX_dec_places,  WY_dec_places :  integer  ; 
axis_incr_EX,  axis_incr_WY,  f igs_incr_EX,  figs_incr_WY, 

EX_bias,  WYJbias  :  REAL  ; 
begin  {  grid_and_axis  } 

if (back" . is_read) and (overlaid)  then 
begin{ (back" . is_read)  ) 
if  axis_up  then 
begin {put  axis  up} 

line_colour  :=  axis_colour  ; 
numb_colour  :=  numbers_colour  ; 

WYgrid_j)enpat  :=  ltgray  ; 

EXgrid_penpat  :=  gray  ; 
end  {put  axis  up} 
else 

begin {erase  axis} 

line_colour  :=  background_colour  ; 
numb_colour  :=  background_colour  ; 

WYgrid_j>enpat  :=  black  ; 

EXgrid_penpat  :=  black  ; 
end  ; {erase  axis} 

{  prepare  screen  scales  and  offsets  as  per  procedure  plot  } 
EX_bias  :=  prt_x_mv_pixel  +  EXwindowdots* ( (1 . O-useEXscreen) /2  ); 
{  Start  5%  in  from  the  left,  &  Start  5%  down  from  the  top  } 
WY_bias  :=  prt_y_mv_pixel  + 

(WYwindowdots* (useWYscreen+ (1 . O-useWYscreen) /2) )  -  liftback; 
{calculate  actual  origin  and  maxscale  screen  pos  and  increments} 
axis_ORIG_EX  :=  Round (EX_bi as) -2; 
axi s_ORIG_WY  : =  Round (WY_bi as )  ; 

axis_RIGHT_EX:=  Round (EX_bias+ (back". EXrange*window_EX_scale) ) ; 
axis_TOP_WY  :=  Round (WY_bias- (back" .WYrange*window_WY_scale) ) ; 
axis_incr_EX  :=  (axis_RIGHT_EX-axis_ORIG_EX) /10; {x  marker  inc  } 
axis_incr_WY  :=  (axis_TOP_WY  -  axis_ORIG_WY) /10; {y  marker  inc} 
figs_incr_EX  :=  back" . EXrange  /  5  ;  {x  number  increment} 
figs_incr_WY  :=  back" .WYrange  /  5  ;  {y  number  increment} 

{draw  axis  lines} 

penpat (black)  ;  pensize(l,l)  ;  forecolor (line_colour)  ; 
moveto (  axis  ORIG  EX,  axis  TOP  WY  ); 
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lineto(  axis_ORIG_EX,  axis__ORIG_WY  ); 
lineto(  axis_RIGHT__EX,  axis_ORIG_WY  ); 

{dependent  on  data,  set  decimal  places  for  axis  numbers} 
forecolor (numb_colour)  ; 

if  backA. EXmax  <  0.1  then  EX_dec_places  :=  4 

else  if  back'* .  EXmax  <  1  then  EX_dec_places  :=  2 

else  if  backA. EXmax  <  10  then  EX_dec_places  :=  1 

else  EX_dec_places  :=  0; 

number_stamp (  backA.EXmin,  EX_dec_places,  axis_ORIG_EX-2, 
ax i s_ORI G_WY +12  ) ; 

if  backA.WYmax  <  0.1  then  WY_dec_places  :=  4 

else  if  backA.WYmax  <  1  then  WY_dec_places  :=  2  {min  values} 

else  if  backA.WYmax  <  10  then  WY_dec_j?laces  :=  1  {special  pos} 

else  WY_dec_places  :=  0; 

number_stamp (  backA.WYmin,  WY_dec_places,  axis_ORIG_EX-22, 
ax i s_ORI G_WY +  5 ) ; 

{loop  around  10  times,  putting  in  all  x&y  markers  and  numbers} 
for  i  :=  0  to  10  do  {  0..8  } 

begin{  put  in  markers,  grid  lines,  numbers,  both  scales.  0..8} 
forecolor (line_colour) ;penpat (black) ;  {x  mark} 

{x  mark}moveto ( Round ( ax is_ORIG__EX+i  *axis_incr_EX) ,  axis_ORIG_WY+3) ; 

{x  mark} lineto (Round ( ax is_ORIG_EX+i  *axis_incr_EX) , axis_ORIG_WY) ; 
if  (grid_up)  and  (axis_up)  and(  i  <>  0  )  then  {x  grid} 
begin {x  grid} 

forecolor (grid_colour ) ;penpat (EXgridjpenpat) ; {x  grid} 
lineto ( Round ( ax i s_ORI G_EX+ i *  ax i s_i nc  r_EX ) ,  axis_TOP_WY  ) ; 
forecolor (grid_colour) ;penpat (black) ; 
end;{x  grid} 

forecolor (numb_colour) ;penpat (black) ;  {x  numb} 
if  (  i  <>  0  )  and  (  not  odd(i)  )  then  {x  numb} 

number_stamp  (  back'' .  EXmin+i/2*f  igs_incr_EX,  EX_dec_places, 

{x  numb}  Round(axis_ORIG_EX+i*axis_incr_EX- 
10) , axis_ORIG_WY+12) ; 

forecolor (line_colour) ;penpat (black) ; {y  mark} 

{y  mark}  moveto (  axis_ORIG_EX-3,  Round (ax is_ORIG_WY+i  * 
axis_incr_WY) ) ; 

lineto (  axis_ORIG_EX, Round (axis_ORIG_WY+i*axi s_incr_WY ) ) 
if  (grid_up)  and  (axis_up)  and(  i  <>  0  )  then{y  grid} 
begin  {y  grid} 

forecolor (grid_colour)  ;penpat (WYgrid_penpat) ; 
lineto (axis_RIGHT_EX, Round (axis_ORIG_WY+i 
*axis_incr_WY) ) ; 

forecolor (grid_colour) ;penpat (black) ; 
end;{y  grid} 

forecolor (numb_colour) ;penpat (black) ; {y  numb} 
if  (  i  <>  0  )  and  (  not  odd(i)  )  then{y  numb} 

number_stamp (backA .WYmin+i/2*f igs_incr_WY, WY_dec_p laces, 
axis_ORIG_EX-22,Round(axis_ORIG_WY+i*axis_incr_WY+5) ) ; 
end  ; {  put  in  markers  then  numbers  x,  then  y  scale  ,  0..8  } 
end; {backA . is_re  i} 

if (not  axis_up) or (not  back" . is_read) or (axis_up  and  not  overlaid) then 
centimetre_grid  ; 
end  ; {  grid_and_axis  } 


procedure  implement_trans (  var  DT:  real;  this_trans:  transform_type; 
var  trans_ok:  boolean  )  ; 

var 

row  ;  integer; 
temp_DT:  real 

procedure  call_alert; 

var  itemhit:  Integer;  NegNumPtr:  DialogPtr; 
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begin {  call_alert  } 

SetCursor (Arrow) ; 

NegNumPtr  :=  getNewDialog (NegNumdlglD, NIL, Pointer (-1 ) )  ; 
ModalDialog (NIL, itemhit) ;  {  put  dialog  box  up,  get  result  ) 
if  itemhit  =  1  then  DisposDialog (NegNumPtr) ; {dismiss  dialog  box} 
trans_ok  :=  false; 
end  ; {  call_alert  } 

begin  { implement_trans } 
for  row  :=  1  to  4  do 
begin {each  row} 

case  this_trans [row] . ttype  of 
tnone  :  ; 

tadd  :  DT  :=  DT  +  this_trans [row] . n  ; 

tminus:  DT  :=  DT  -  this_trans [row] . n  ; 

ttimes:  DT  :=  DT  *  this_trans [row] . n  ; 

tdiv  :  DT  :=  DT  /  this__trans  [row]  .  n  ; 

tlog  :  begin  if  DT  <=  0.0  then  call_alert 

else  temp_DT  ;=  In (DT) /2 . 30258509299; 

DT  ;=  temp_DT;  end; 

tin  :  begin  if  DT  <=  0.0  then  call_alert 

else  temp_DT  :=  In (DT) ;  DT  :=  temp_DT;  end; 
talog  :  begin  if  DT  <=  0.0  then  call_alert 
else  temp_DT  ;=  xpwry(  10,  DT  ); 

DT  :=  temp_DT;  end; 

tain  :  begin  if  DT  <=  0.0  then  call_alert 

else  temp_DT  :=  exp(DT);  DT  :=  temp_DT;  end; 

end; [of  case} 
end; 

end  ;  {implement_trans} 

procedure  Save_Foreground; 
var 

topleft  :  Point  ; 

i  :  integer  ; 

EX_to_save , 

WY_to_save, 

EXjprior_to_trans, 

WY_prior_to_trans  :  real  ; 
reply  :  sfreply  ; 

result  :  oserr  ; 

outfile  :  text  ; 

EX_str, 

WY_str, 

save_str  :  String  ; 

trans_ok  :  boolean  ; 

begin {  Save_Foreground  } 

setcursor (curslist [watchcursor ] ~~) ;  {  select  the  new  file  name  } 

topleft. h  :=  90; 
topleft. v  .=  100; 

sfputfile (topleft, ' Enter  new  file  name ' , front~ . line_zero+ ' . f rt ' , 
nil,  reply); 
if  reply. good  then 
begin 

setcursor (curslist [watchcursor] ^A) ; 
pfilename  ;=  reply.fname; 

result :=setvol (nil, reply .vrefnum) ;  {  save  file  to  disk  } 

ClearWindow (MainPtr)  ; 
rewrite (outfile, pfilename) ; 
this_front_saved  :=  true  ; 

writeln(  outfile,  f rontA . line_one+ '  '  )  ; 

writeln(  outfile,  frontA . line_two  )  ; 
writeln(  outfile,  frontA.line  three  )  ; 
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writeln(  outfile  )  ;  {  blank  line  } 
g  r i d_and_ax i s  ; 
trans_ok  :=  true; 
i  :=  1  ; 

repeat{Note  EX[i]  and  WY[i]array  vals  unchanged  at  this  point.} 
EX_to_save  :=  ( front"'. EX [i]  -  back"' . EXmin)  * 
front'' . EXoff scale  +  back^.EXmin  +  front^ . EXoffset; 

WY_to_save  :=  (front^ .WY [i]  -  back"' . WYmin)  * 
front^ . WYoffscale  +  back^.WYmin  +  front^ . WYoffset; 

implement_trans (  EX_to_save,  save_EX_trans,  trans_ok  )  ; 
implement_trans (  WY_to_save,  save_WY_trans,  trans_ok  )  ; 
RealToStr (  EX_to_save,  EX_str) ; 

RealToStr (  WY_to_save,  WY_str) ; 
save_str  :=  EX_str  +  ’  ’  +  WY_str; 
writeln(  outfile, save_str  ); 
i  :=  i  +  1; 

until  (  i  >  front"1 . last_point  )  or  (not  trans_ok)  ;  {save  data  } 
close (outfile)  ; 
end; 

FlushEvents (everyEvent, 0) ;  {  clear  events  from  previous  state  } 

end; {  Save_Foreground  } 

procedure  Save_Combination  ; 
var 

topleft  :  Point  ; 

i  :  integer  ; 

modified_EX, 
modified_WY  :  real  ; 

reply  :  sfreply  ; 

result  :  oserr  ; 

outfile  :  text  ; 

EX_str,  WY_str, 
type_combine_str, 
save_str  :  String  ; 

trans_ok  :  boolean  ; 

begin {  Save_Combi nation  } 

setcursor  (curslist  [watchcursor]  ;  {  select  the  new  file  name  } 

topleft. h  :=  90; 
topleft. v  ;=  100; 

sfputfile (topleft, ’Enter  new  file  name ’, combo~ . line_zero+ ’. com’ , 
nil,  reply); 
if  reply. good  then 

begin {go  ahead  and  save  combination} 
setcursor (curslist [watchcursor ] ) ; 
pfilename  :=  reply.fname; 

result :=setvol (nil, reply. vrefnum) ;  {  save  file  to  disk  } 

ClearWindow (MainPtr) ; 

rewrite (outfile, pfilename) ; 

this_combo_saved  :=  true  ; 

writeln(  outfile,  combo"1 .  line_one  )  ; 

writeln(  outfile,  combo"1 .  line_two  )  ; 

if  nlog_comb  then  type_combine_str  :=  ’nlog  used’ 

else  type_combine_str  :=  ’combined  by  adding’; 

writeln(  outfile, type_combine_str  )  ; 

writeln(  outfile  )  ; 

grid_and_axis  ; 

trans_ok  :=  true; 

i  :=  1  ; 

repeat 

modifi|ed_EX  :=  comboA.EX[i]  ; 

implement_trans (  modified_EX,  combo_EX_trans,  trans_ok  )  ; 
modif ied_WY  :=  combo^.WY[i]  ; 

implement_trans (  modified_WY,  combo_WY_trans,  trans_ok  ); 
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RealToStr (  modified_EX,  EX_str) ; 

RealToStr (  modif ied_WY,  WY_str) ; 
save_str  :=  EX_str  +  '  '  +  WY_str  ; 
writeln(  outf ile, save_str  )  ; 
i  :=  i  +  1  ; 

until  (  i  >  combo"' .  last_point  )  or  (not  trans_ok)  ; 
close (outfile)  ; 

end;  {go  ahead  and  save  combination} 

FlushEvents (everyEvent, 0) ;  {  clear  events  from  previous  state  } 

end; {  Save  Combination  } 


(*$S 


*) 


procedure  Read_chart_f ile (  reference 

var  chart 
var  read_ok 

var 

topLeft 

FileFilter 

theErr 

string_input, 
ok,  trans_ok 
i,  position. 


s,  AString,  msg 


boolean; 

Pchart_data_type ; 
boolean  ) 


Point  ; 
SFTypeList  ; 
OSErr  ; 
str255  ; 
boolean  ; 
integer  ; 
transform_type; 


last_point 

this_EX_trans,  this_WY_trans 
begin  {  Read_chart_file  } 
msg  :=  'Chart  Read'  ; 

topLeft. h  :=  90;  {  top  left  horiz  point  for  Get  File  dialog  } 
topLeft. v  :=  80;  {  top  left  vert  "  "  "  "  "  } 

SFGetFile (topLeft, msg, nil, -1, FileFilter, nil, Reply) ;  {  select  file  } 
if  Reply. Good  then  {ok  pressed  -  proceed  with  file  read  process} 
begin  {  proceed  with  file  read  and  data  process  } 
setcursor (curslist [watchcursor] ") ; 

FileSelected  :=  true; 
pfilename  :=  reply. fname; 

theErr  :=  SetVol (nil, reply .vrefnum) ;  {set  vol  name  to  def  vol} 
ClearWindow (MainPtr) ; 

if  reference  then  preference  true  if  back  chart  being  read*) 
begin  this_EX_trans  :=  back_EX_trans; 
this_WY_trans  :=  back_WY_trans;  end 
else{  use  front  transformation  specification  } 
begin  this_EX_trans:=  front_EX_trans; 
this_WY_trans:=  front_WY_trans;  end; 
reset (infile, pfilename) ; 
chart' . line_zero  :=  pfilename  ; 
readln(  infile,  chart'' .  line_one  )  ; 
readln(  infile,  chart' . line_two  )  ; 
readln(  infile,  chart' . line_three  )  ; 
readln(  infile)  ; 

moveto (50, 80) ; textsize (18) ;  penpat (black)  ; 
forecolor (chart' . colour)  ; 

drawstring ( 'Data  is  now  being  read. '); {message  while  user  waits} 

chart'.EXmin  :=  30000  ;  chart'. EXmax  :=  -30000  ;{  init  mins  } 

chart'.WYmin  :=  30000  ;  chart'. WYmax  :=  -30000  ;{  &  max's.  } 

i  :=  0  ;  {  initialize  counter  } 

trans_ok  ;=  true; {  initialize  a  boolean  } 

repeat}  repeat  while  not  eof  and  trans_ok  } 

readln(  infile,  string_input  )  ;{  Read  a  line  as  a  string.} 
if  length (string_input)  >=  3  then{ length<3, read  past  blanks} 
begin{process  data} 
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position  :=  1; {  position  for  FUNC  rdreal  STRING  to  REALS.} 
i  :=  i  +  1  ;  {  array  index.  } 

chart". EX[i] : =rdreal (string_input, position, ok) ;{ Convl  str} 

implement_trans  (  chart" . EX [ i ] ,  this_EX_trans,  trans_ok  ) 
{ tEX, WY  real}chart" .WY[i]  :=  rdreal (  string_input,  position, ok) ; 

implement_trans  (  chart''  .WY  [ i] ,  this_WY_trans,  trans_ok  )  ; 

{  Minimum  and  maximum  of  the  horizontal  EX  data  &  vertical  WY  data.} 
if  chart"' .EX [i]  <  chart"' . EXmin  then 
chart".EXmin  :=  chart".EX[i] ; 

if  chart". EX[i]  >  chart". EXmax  then  chart  A  .  EXmax 

chart" . EX [i ] ; 

if  chart". WY[i]  <  chart". WYmin  then 
chart". WYmin  :=  chart" .WY [i] ; 

if  chart"'. WY[i]  >  chart"' . WYmax  then 
chart". WYmax  :=  chart" .WY [i] ; 
end; {process  data} 

until (EOF (inf ile) ) or (not  trans_ok) ; {while  not  eof&trans_ok  } 
close (infile)  ; 

chart" . last_point  :=  i  ;  {  Record  the  last  array  index.  } 

chart"1 .  EXrange  :=  charts  EXmax  -  chart". EXmin  ; 
chart" .WYrange  :=  chart"1  .WYmax  -  chart". WYmin  ; 
chart" . EXoffset  :=  0  ;  {  for  moving  frontplot  in  horizontal  } 
chart"1  .WYoff set  :=  0  ;  {  for  moving  frontplot  in  vertical  } 
chart" . EXoff scale  :=  1  ;{  for  altering  frontplot  EX  scaling  } 
chart" .WYoff scale  :=  1  ;{  for  altering  frontplot  WY  scaling  } 
if  reference  then 

begin{  new  back  chart-set  scales  } 

if  (trans_ok)  and  (chart"  .  EXrangeoO)  and  (chart"  .WYrangeoO)  then 
begin{  . .but  only  if  the  data  was  good,  Use  90%  of  window} 
window_EX_scale : =useEXscreen*EXwindowdots/back" . EXrange; 
window_WY_scale : =useWYscreen*WYwindowdots/back" . WYrange; 
if  not  overlaid  then  window_WY_scale  ;=  window_WY_scale/2; 
read_ok  :=  true  ;  {a  successful  read} 
end  {setting  window  scales  to  back  chart} 
else  {trans_ok  may  have  been  true,  but  data  was  not  good  } 
begin{read  has  failed} 
trans_ok  :=  false  ; 

read_ok  :=  false  ; {unsuccessful  read,  so  redo_screen} 
end;  {read  has  failed} 
end;  {  new  back  chart-set  scales  } 
chart" . is_read  ;=  trans_ok;  {  boolean  value  } 
chart" . set_to_di splay  :=  trans_ok  ; 

normal_comb  :=  false  ;  {front  or  back  chart  changed  } 
nlog_comb  :=  false  ; 
this_front_saved  :=  false  ; 

this_combo_saved  :=  false  ;  {  boolean’s  for  setting  ticks} 
comb_just_put_up  :=  false  ; 

end  {  ok  pressed  -  proceed  with  file  read  and  data  process  } 
else  read_ok  :=  false;  {  Cancel  button  was  pushed.  } 

FlushEvents (everyEvent, 0) ;  {  clear  events  from  previous  state  } 

end; {  Read  chart  file  } 


procedure  plot (viewable : boolean; liftback : integer; var  chart : Pchart_data_type ) 
var  {  NOTE  Subtract  +  WY’s  to  proceed  up  from  bottom.} 

i,  in_from_left,  up_from_bottom,  xplot,  yplot  :  integer  ; 
begin  {  plot  } 

setcursor (curslist [watchcursor 1 "") ;  penpat (chart".penpat) ; 
chart" . showing  :=  viewable;  {  .showing  is  for  Menu  Ticks  } 

if  not  viewable  then  forecolor (background_colour) 
else  forecolor (chart" . colour) ; 

in  from  left : =Round (EXwindowdots* (  (1 . 0-useEXscreen) /2  ) ) ; { 7 . 5%  in} 
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up_f rom_bottom  :=  Round (WYwindowdots* (  useWYscreen+ (1 . 0- 
useWYscreen) /2  ))-  liftback;  {  PIXELS  } 

{  Take  data.  Subtract  back  data  minimum  value.  Scale  ^t  (if  front),} 

{  add  offset  (if  front),  ROUND  data  ,add  x  data  or  subtract  y  data,} 

{  Window  scale  the  lot,  and  add  window  pixel  position  offset  to  it.} 

{  Note  prt_x_mv_pixel  &  prt_y_mv_pixel  zero  except  when  printing.  } 
pensize (0,0); 

for  i  :=  1  to  chart' . last_point  do 
begin {draw  line} 

xplot  :=  prt_x_mv_jpixel  +  in_from_left  +  round(  (chart' . EXoffset 
+ (chart ' . EX [i ] -back' .EXmin) *chart' . EXoff scale) *window_EX_scale  ) ; 

yplot  :=  prt_y_mv_pixel  +  up_f rom_bottom  -round ( (chart' .WYoff set 
+  (chart"' .  WY  [i  ]  -back"'  .  WYmin)  *chart/' .  WYof  fscale)  *window_WY_scale)  ; 
lineto(  xplot,  yplot  ); 
if  i  =  1  then 

pensize  (chart"' .  line_thickness,  chart"' .  line_thickness)  ; 
end;  {draw  line} 
pensize (1,1)  ; 
end  ;  {  plot  } 


procedure  redo_screen  ; 
begin  {  redo_screen  } 

setcursor  (curslist  [watchcursor  ]  ")  ; 

ClearWindow (MainPtr) ;  {  Empty  the  window.  } 

grid_and_axis  ;  {  Grid  is  put_up  -  if  grid_up  =  true,  axis  -  ditto  } 
comb_just_put_up  :=  false  ; 

if (  back'. is_read) and (  back' . set_to_di splay ) then 
plot (put_up, liftbacK,back) ; 

if  (front"' .  is_read)  and  (front"' .  set_to_di  splay)  then  plot  (put_up,  0,  front)  ; 

if  (combo"' .  is_read)  and  (combo"' .  set_to_di splay)  then 
plot (put_up, round(liftback/2) , combo)  ; 

top_of_screen_details;  {on  screen  info  re  which  graphs  are  read  in} 
end  ;  {  redo  screen  } 


procedure  dojprint; 
var  prrechdl :thprint; 
myprport : tpprport ; 
pg, mypgcount : integer; 
all_printed: boolean; 

procedure  do_print_screen  ; 
var 

proper_back_thickness:  integer; 
proper_back_penpat , 
proper_combo_j?enpat:  pattern; 

begin  {  do_print_screen  } 

setcursor  (curslist  [watchcursor] "'"')  ; 

WipeWindow (MainPtr) ; {dont  cancel  set_to_di splay  vars!} 
prt_x_mv_pixel  :=  printEXof f set  ; 
prt_y_mv_pixel  :=  printWYof f set  ; 
proper_back_thickness  :=  back~ . line_thickness  ; 
back^ . line_thickness  :=  1  ; 
proper_back__penpat  :=  backA  .penpat; 
backA.penpat  :=  dkgray  ; 
proper_combojpenpat  :=  combo' . penpat ; 

grid_and_axis; {  Grid  is  put_up  -  if  grid_up  =  true, axis  -ditto} 
if  back' . set_to_display  then  plot (put_up, liftback, back)  ; 
if  front' . set_to_display  then  plot (put_up, 0, front)  ; 
if (not  back' . set_to_di splay ) and (not  front' . set_to_di splay ) then 
combo' .penpat  :=  black 
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else  combo'' . penpat  :=  gray  ;{comb  plot  must  be  distinguishable} 
if  combo'' .  set_to_di splay  then 
plot (put_up, round(liftback/2) , combo)  ; 

top_of_screen_details;  {on  screen  info  re  graphs  names} 
back'' .  line_thickness  :=  proper_back_thickness; 
back'' .penpat  :=  proper_back_j?enpat; 

combo’' .  penpat  :  =  proper_combo_penpat ; 

prt_x_mv_j>ixel  :=  0  ; 
prt_y_mv_pixel  :=  0  ; 
end  ;  {  do_print_screen  } 

begin 

PrCpen; 

prrechdl  :=  THprint (Newhandle (sizeof (Tprint) ) ) ; 

Printdefault (Prrechdl) ; 
if  prstldialog (prrechdl )  then; 
if  prjobdialog (prrechdl)  then 
begin 

myprport : =propendoc (prrechdl, nil,  nil ) ; 
pg:=0; 

if  prerror  =  noerr  then 
begin 

pg:=pg+l; 

propenpage (myprport, nil)  ; 

if  prerror=noerr  then  do_print_screen;  {put  up  the  charts} 
prclosepage (myprport) ; 
end; 

prclosedoc (myprport) ; 
end; 

PrClose; 

SetPort (MainPtr) ; 
end; {do_print} 


procedure  overlay (  required  :  boolean  )  ; 
begin  {  overlay  } 
if  required  then 
begin 

if  not  overlaid  then 
begin  {  overlay  plots  } 

window_WY_scale  :=  window_WY_scale  *  2  ; 
liftback  :=  0  ;  {  used  to  reposition  back  chart} 

overlaid  :=  true  ; 

end  ;  {  overlay  plots  } 

end 

else  if  overlaid  then 
begin  {  split  screen  } 

liftback  ;=  round (  WYwindowdots  *  0.93  /  2  ); {repos  back  chart} 
window_WY_scale  :=  window_WY_scale  /  2  ; 
overlaid  :=  false  ; 

end  ;  {  split  screen  } 
redo_screen  ; 
end  ;  {  overlay  } 


procedure  wrap_left  ; 

var  i  ,  points_to_move  :  integer  ;  temp  :  array [0 .. 300]  of  real  ; 
begin  {  wrap_left  } 

setcursor (curslist [watchcursor] ; 

frontA . set_to_di splay  :=  true  ; 

if  not  overlaid  then  plot (remove, 0, front)  ; 

points_to_move  :=  percent_change; { not  a  percentage,  previously  10} 
for  i  :=  1  to  front'' .  last_point  do 
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begin 

temp[i]  :=  front'. WY[i]  ;  {  fill  temp  array  with  WY  values  ) 
end  ; 

for  i  :=  1  to  front' . last_point  -  points_to_move  do 

begin  {refill  front'' .WY  [i]  with  values  moved  lorlO  points  L  or  R} 
front'' .WY  [i]  :=  ROUND  (  temp[i  +  points_to_move]  ); 

end  ; 

for  i  :=  1  to  points_to_move  do 
begin 

front'. WY[i  +  front' . last_point-points_to_move] : =ROUND (temp [ i ]) ; 
end  ; 

normal_comb  :=  false  ; 
nlog_comb  :=  false  ; 
this_front_saved  :=  false  ; 
this_combo_saved  :=  false  ; 
if  overlaid  then  redo_screen 
else  plot (put_up, 0, front)  ; 
end  ;  {  wrap_left  } 


procedure  wrap_right  ; 

var  i  ,  points_to_move  :  integer  ;  temp  :  array [ 0 .. 300]  of  real  ; 
begin  {  wrap_right  ] 

setcursor (curslist [watchcursor ]  " ) ; 
front' . set_to_di splay  :=  true  ; 
if  not  overlaid  then  plot (remove, 0, front)  ; 
point s_to_move  :=  percent_change  ; 
for  i  :=  1  to  front' . last_point  do 
begin 

temp[i]  :=  front'. WY[i]  ;  {  fill  temp  array  with  WY  values  } 
end  ; 

for  i  :=  1  to  front' . last_point  -  points_to_move  do 

begin  {refill  front'. WY(i]  with  values  moved  10  points  Right) 
front'. WY[i  +  points_to_move]  :=  ROUND (  temp[i]  )  ; 
end  ; 

for  i  :=  1  to  points_to_move  do 
begin 

front'.WY[i] : =ROUND (temp [i+front' . last_point-points_to_move  ] ) ; 
end  ; 

normal_comb  :=  false  ; 
nlog_comb  :=  false  ; 
this_front  saved  :=  false  ; 
this_combo_saved  :=  false  ; 
if  overlaid  then  redo_screen 
else  plot (put_up, 0,  front)  ; 
end  ;  {  wrap_right  } 


procedure  combine_charts (  EN  :  real  )  ; 

(*type 

comb_type  =  array [-100 .. 400]  of  real;*) 

var 

i,  j,  start,  finish  :  integer  ; 

WY_value,  b_weight,  f_weight,  common_denominator, 
indexEX_realign_factor  :  real  ; 

scbck,  frsav,  combWY  :  array [-100 .. 400]  of  real; 

ba_w_str,  fr_w_str  ;  String  ; 

begin 

setcursor (curslist [watchcursor]  ")  ; 

if  overlaid  then  ClearWindow (MainPtr)  {  Empty  the  window.  } 
else  if  combo' . is_read  and  combo' . set_to_di splay  then 
plot (remove, round(liftback/2) , combo)  ; 
grid_and_axis  ;  t  Grid  &  Axis  put_up  ) 
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setcursor  (curslist  [watchcursor ]  ")  ; 
for  j  :=  -100  to  400  do 
begin  {  init  arrays  } 
frsav[j]  :=  0.0  ; 
scbck[j]  :=  0.0  ; 
end  ;  {  init  arrays  } 

indexEX_realign_factor:=(back'.last_j?oint-l) / (back'. EXmax  - 
back'' .  EXmin) ; 

for  i  :=  1  to  back"' .  last_point  do 
begin 

j  :=  round( (back' .EX[i] -back'. EXmin) *indexEX_realign_factor) ; 

WY_value  :=  (  back'.WY[i]  -  back'.WYmin  ); 

scbck[j]  :=  WY_value  ; 
scbck[j+l]  :=  WY_value  ; 

end; {  writing  back  chart  save  type  data  to  the  mono  element  array) 
for  i  :=  1  to  back' . last_point  do 
begin 

j  :=  round(  (  (front'' .EX [i]  -  back'. EXmin) *front' .EXoff scale 
+front' . EXoff set  )  *  indexEX_realign_factor  ); 

WY_value  :=  (  front' .WYoff set/window_WY_scale  + 

(  front'. WY[i]  -  back'.WYmin  )  *  front' .WYoff scale) ; 
frsav[j]  :=  WY_value  ; 
frsav[j+l]  :=  WY_value  ; 

end  ;  {  writing  front  chart  save  type  data  to  mono  element  array  } 
common_denominator  :=  back_weight  +  front_weight  ; 

b_weight  :=  back_weight  /  common_denominator  ; (Combine  these  arrays) 
f_weight  :=  front_weight  /  common__denominator  ; 
if  EN  =  0.0  then 

begin {  standard  addition  of  data  ) 
for  j  :=  -100  to  400  do 

begin  {  combine  the  two  WY-only  arrays  } 

combWY[j]  :=  (frsav(j)  *  f_weight)  +  (scbckfj]  *  b_weight)  ; 
end  ;  {  combine  two  WY  only  arrays  } 

normal_comb  : =  true  ; 
nlog__comb  :=  false  ; 
end  {  standard  addition  of  data  } 
else 

begin {  data  antilog ' d, added, then  log'd  } 
for  j  :=  -100  to  400  do 
begin 

combWY[j]  :=  EN  *  ln(  Xpwry (10,  f rsav [ j ] /EN) *f_weight 
+  Xpwry (10, scbck(j) /EN) *b_weight  )  /  2.30258509299  ; 
end; 

nlog_comb  :=  true  ; 
normal_comb  :=  false  ; 
end;  {  data  antilog' d, added, then  log'd  } 
combo'' .  last_point  :=  back'' .  last_point  ;  (Insert  into  chart_data_type } 
for  i  ;=  1  to  combo'' .  last_point  do 

begin  {  insert  details  into  a  standard  chart_data_type  array  } 

combo"' .  EX  [  i  ]  :=  (  i  -  1  +  back''. EXmin  )/ indexEX_real  ign_f  actor 

combo"' .  WY  [  i  ]  :=  combWY[i-l]  +  back'.WYmin  ; 

end  ;  {  insert  details  into  a  standard  chart_data_type  array  ) 
combo' . EXrange  :=  0; (These  combo  elements  are  all  initialized  here) 

combo' .WYrange  :=  0  ; 

combo'. EXmin  :=  C  ; 
combo'. WYmin  ;=  0  ; 

combo' . EXoffset  :=  0  ; (could  be  for  moving  comb  about  if  necessary) 
combo' .WYoff set  :=  0  ; 

combo' . EXoff scale  :=  1;(&  for  altering  the  comboplot  scaling  used.) 
combo' .WYoff scale  :=1; 
combo' . is_read  :=  true  ; 

if  not  overlaid  then  combo' . set_to_di splay  :=  true  ; 
if  nlog_comb  and  not  overlaid  then  redo_screen  else 
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plot (put_up, round (liftback/2) , combo)  ; 
comb_just_put_up  :=  true  ; 

RealToStr (  back_weight,  ba_w_str  ); 

RealToStr (  front_weight,  fr_w_str  )  ; 

combo~ . line_zero  :=  back^ . line_zero+front~ . line_zero  ; 

combc~  .  lir.e_one  :=  'Back  Used  Was  ' +back~ . line_zero+ '  '  + 

'Ratio  of  '+ba_w_str; 

cornbo^ . line_two  :=  'Front  Used  Was  ' +front~ . line_zero+ '  '+ 

'is  to  '+fr_w_str+'  weighting.'; 

top_of_screen_details;  {on  screen  info  re  which  graphs  are  read  in) 
this_combo_saved  :=  false  ; 
back_weight  : =  1.0; 
front_weight  :=  1.0; 
end  ; {  combine  } 


procedure  combining_ratio  ; 
var 

itemtype,  position  :  Integer; 

okjbutton  :  boolean  ; 

ComRatioDialPtr  :  DialogPtr; 

the I tern  :  Handle  ; 

display_rectangle  :  Rect  ; 

backR_str,  frontR_str  :  str255  ; 

begin{  combining_ratio  ) 

ComRatioDialPtr  :=  getNewDialog(ComRatiodlgID,  NIL,  Pointer (-1) )  ; 
ModalDialog (NIL, itemtype) ;  {  put  dialog  box  up;  get  result  } 
if  itemtype  =  1  then 

begin {  ok  button  pressed} 

GetDItem (ComRatioDialPtr,  3,  itemtype, theitem, display_rectangle) ; 
GetIText (theitem, backR_str)  ; 
position  :=  1  ; 

back_weight  :=  rdreal (  backR_str,  position,  ok  ); {Convert  str} 
GetDItem (ComRatioDialPtr, 4, itemtype, theitem, display _rectangle) ; 
GetIText (theitem, frontR_str)  ; 
position  :=  1  ; 

front_weight :=  rdreal (  frontR_str,  position,  ok  ); {Convert  str) 
end  ; {  ok  button  pressed} 

(*  else 

begin{  cancel  button  pressed  } 
back_weight  : =  1.0; 
f ront_weight  : =  1.0; 
end  ;{  cancel  button  pressed  }*) 

DisposDialog (ComRatioDialPtr) ;  {  get  rid  of  dialog  box  } 

redo_screen  ;  {  return  to  previous  screen  } 

end; {  combining_ratio  } 


procedure  colourize(  item  :  integer  )  ; 
begin{  colourize  } 

setcursor  (curslist  [watchcursor  ]  's/v)  ; 

info_up  :=  false  ;{in  case  graph  details  were  up  immediately  prior} 
the_colour_choice  :=  item  ; 
case  Item  of 

1  :  begin{  colour  against  blue  } 

foreground_colour  :=  whitecolor  ; 
background_co!our  :=  cyancolor 
grid_colour  :=  blackcolor  ; 

cross_colour  :=  magentacolor  ; 

x_y_values_col  :=  magentacolor  ; 
graphdetails_col  :=  whitecolor  ; 
axis_colour  :=  whitecolor  ; 

numbers  colour  :=  whitecolor  ; 
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back'' .  colour  :=  redcolor  ; 

front'' .  colour  :=  whitecolor 

combo'' .  colour  :=  yellowcolor; 

front'' .  penpat  :=  black 

back'' .penpat  :=  black  ; 

combo'' .penpat  :=  black  ; 

front"' .  line_thickness  :=  2  ; 

back* . line_thickness  :=  2  ; 
combo"' .  line_thickness  :=  2  ; 
sepia  :=  false  ; 
end  ; {  colour  against  blue  } 

2  :  begin {  colour  against  white  } 

foreground_colour  :=  blackcolor  ; 
background__colour  :=  whitecolor  ; 
grid_colour  :=  blackcolor  ; 

cross_colour  :=  magentacolor 

x_y_values_col  :=  magentacolor 
graphdetails_col  :=  blackcolor  ; 
axis_colour  :=  blackcolor  ; 

numbers_colour  :=  blackcolor  ; 
back*. colour  :=  redcolor; 

front"' .  colour  ;=  bluecolor 

combo* . colour  :=  greencolor  ; 

front* .penpat  :=  black  ; 

back*. penpat  :=  black  ; 

combo* . penpat  :=  black  ; 

front"' .  line_thickness  :=  1  ; 

back* . line_thickness  :=  1  ; 
combo* . line_thickness  :=  1  ; 
sepia  :=  false  ; 
end  ; {  colour  against  white  } 

3  :  begin {  colour  against  white  } 

foreground_colour  :=  blackcolor  ; 
background_colour  :=  whitecolor  ; 
grid_colour  :=  blackcolor  ; 

cross_colour  :=  magentacolor 

x_j/_values_col  :=  magentacolor 
graphdetails_col  :=  blackcolor  ; 
axis_colour  :=  blackcolor  ; 

numbers_colour  :=  blackcolor  ; 
back*. colour  :=  redcolor; 

front* . colour  :=  bluecolor 

combo* . colour  :=  greencolor  ; 

front* .penpat  ;=  black  ; 

back*. penpat  ;=  black  ; 

combo* . penpat  :=  black  ; 

front*. line_thickness  :=  1  ; 
back* . line_thickness  :=  1  ; 
combo* . line_thickness  :=  1  ; 
sepia  :=  true  ; 
end  ; {  colour  against  white  } 

4  :  begin{  black  against  white  } 

foreground_colour  ;=  blackcolor  ; 
background_colour  :=  whitecolor  ; 
grid_colour  :=  blackcolor  ; 

cross_colour  :=  whitecolor  ; 

x_y_values_col  :=  blackcolor  ; 
graphdetails_col  :=  blackcolor  ; 
cixis_colour  :=  blackcolor  ; 

numbers_colour  :=  blackcolor  ; 
back*. colour  :=  blackcolor  ; 

front* .colour  ;=  blackcolor  ; 

combo* . colour  :=  blackcolor  ; 
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f  ront'  .  penpat  :=  black, 

back'' .  penpat  :=  dkgray 

combo' . penpat  : =  gray 

front'' .  line_thickness  :=  1  ; 

back' . line_thickness  :=  2  ; 
combo'' .  line_thickness  :=  2  ; 
sepia  :=  false  ; 


end  ; {  black  against  white  } 

5  :  begin{  make  white  against  black  monochrome  monitor.} 
foreground_colour  :=  whitecolor  ; 
background_colour  :=  blackcolor  ; 
grid_colour  :=  whitecolor  ; 

cross_colour  :=  blackcolor  ; 

x_y_values_col  :=  whitecolor  ; 
graphdetails_col  :=  whitecolor  ; 
axis_colour  :=  whitecolor  ; 

numbers_colour  :=  whitecolor  ; 
back' . colour  :=  whitecolor  ; 

front' . colour  :=  whitecolor  ; 

combo' . colour  :=  whitecolor  ; 

front' .penpat  :=  black 

back' . penpat  : =  dkgray  ; 

combo' . penpat  :=  gray 

front' . line_thickness  :=  1  ; 
back'. line_t hickness  :=  2  ; 
combo' . line_thickness  :=  2  ; 
sepia  :=  false  ; 

end  ; {  make  white  against  black  monochrome  monitor . } 
end; {case} 
end  ;  {  colourize  } 


procedure  Resize_to_screen  ; 
begin 

setcursor (curslist [watchcursor] 'A)  ; 

if (front'. EXoffset  <>  0) or (front' .WYoff set  <>  0 ) or ( front' . EXof f scale  <> 
1 )  or 

(front' .WYoff scale  <>  1)  then 
begin 

this_front_saved  :=  false  ; 
normal_comb  :=  false  ; 
nlog_comb  :=  false  ; 
this_combo_saved  :=  false  ; 
end  ; 

plot  (remove,  0,  front)  ; 
front' .EXoffset  :=0; 
front' .WYoff set  :=C; 
front' .EXof f scale  :=1; 
front' .WYoffscale  :=  1  ; 
grid_and_axis  ; 

if  back' . set_to_di splay  then  plot (put_up, liftback, back)  ; 
if  combo'. set_to_display  then  plot (put_up, round(liftback/2) , combo)  ; 
if  front' . set_to_display  then  plot (put_up, 0, front) ; 

top_of_screen_details;  {on  screen  info  re  which  graphs  are  read  in} 
end  ; 


procedure  move (  ItemNum  :  integer  )  ; 
begin  {  move  } 

setcursor (curslist [watchcursor]  ") ; 
this_front_saved  :=  false  ; 
this_combo_saved  :=  false  ; 
normal  comb  :=  false  ; 
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nlog_comb  :=  false  ; 
if  combo' . set_to_display  then 
begin 

plot (remove, Round (liftback/2) , combo) ; {  erase  } 
combo' . set_to_di splay  :=  false; 
end; 

if  not  wiped  then 
begin 

plot (remove, 0, front) ;  {  erase  } 
wiped  :=  true  ; 
end  ; 

case  ItemNum  of 
{Existing  front  offsets  } 

{in  SCRN  UNTS  +  actual  size  of  data  at  present  EX  the  change  ) 
{U}  1  :  front'  . WYof fset  :=  front"'  .WYoff set  +  (back' . WYrange  * 
percent_change/100)  ;  {add  for  up  } 

{D}  2  ;  front' .WYof fset  :=  front' .WYof fset  -  (back' . WYrange  * 
percent_change/100)  ;  {-  for  down  } 

{L}  3  :  front' . EXoffset  :=  front' .EXoffset  -  (back' . EXrange  * 
percent_change/100)  ;  {-  for  left  } 

{ R >  4  ;  front' . EXoffset  :=  front'. EXoffset  +  (back' . EXrange  * 
percent_change/100)  ;  {+  for  right) 
end  ;  {  case  ) 

if  not  OSEventAvail (mDownMask  +  keyDownMask,  theEvent)  then 
begin 

gr i d_and_axi s  ; 

if  back' . set_to_di splay  then  plot (put_up, liftback, back)  ; 
plot (put_up, 0, front)  ; 
wiped  :=  false  ; 
end  ; 

end  ;  {  move  } 


procedure  change_size(  ItemNum  ;  integer  )  ; 
begin  {  change_size  } 

setcursor (curslist [watchcursor]  " ) ; 
this_front_saved  :=  false  ; 
this_combo_saved  :=  false  ; 
normal_comb  :=  false  ; 
nlog_comb  :=  false  ; 
if  combo' . set_to_di splay  then 
begin 

plot (remove, Round (liftback/2) , combo) ; {  erase  } 
combo' . set_to_di splay  :=  false; 
end; 


if  not  wiped  then 
begin 

plot (remove, 0, front) 
wiped  :=  true  ; 
end  ; 

case  ItemNum  of 


(T)  1 
{ S }  2 
(W)  3 
{N}  4 
end 


front' 

front' 

front' 

front' 


.WYof f scale 
.WYof fscale 
.EXoff scale 
.EXof fscale 


erase 


=  front' .WYof fscale 
=  front' .WYof fscale 
=  front' . EXof fscale 
=  front'. EXof fscale 


+  percent_change/100 

-  percent_change/100 
+  percent_change/100 

-  percent_change/100 


{  case  } 

if  not  OSEventAvail (mDownMask  +  keyDownMask,  theEvent)  then 
begin 

grid_and_axis  ; 

if  back' . set_to_display  then  plot (put_up, liftback, back) 
plot (put_up, 0, front)  ; 
wiped  :=  false  ; 
end  ; 
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end  ;  {  change_size  } 


procedure  graph_details  ; 
begin {  graph_details  } 
if  not  info_up  then 
begin{put  info  up} 

ClearWindow (MainPtr)  ; 
penpat (black) ; 

forecolor (graphdetails_col)  ; 
pensize(l,l)  ; 
textsize  (10) ; 

moveto  (10,20) ;  drawstring(  1  BACK  GRAPH  DETAILS  1  )  ; 
if  back" .is_read  then  begin  (  Back  Graph  Details  } 
moveto  (150, 20) ;  drawstring (  back" . line_zero) ; 
moveto (10, 45) ;  drawstring (  back" . line_one  ); 
moveto (10, 65) ;  drawstring (  back" . line_two  ); 
moveto (10, 85) ;  drawstring(  back" . line_three  );end;{  Details} 
moveto (10, 115) ;  drawstring(  'FRONT  GRAPH  DETAILS  '  )  ; 
if  front" . is_read  then  begin{  Front  Graph  Details  } 
moveto (150, 115) ;  drawstring (front" . line_zero) ; 
moveto (10, 140) ;  drawstring (  front" . line_one  ); 
moveto (10, 160) ;  drawstring (  front" . line_two  ); 
moveto (10, 180) ;  drawstring (front" . line_three) ;  end; {Details } 
moveto  (10, 210) ;  drawstring(  'COMBINATION  GRAPH'  )  ; 

if  combo" . is_read  then  begin  {  Combined  Graph  Details  } 
moveto (150, 210) ;  drawstring (  combo" . line_zero) ; 
moveto (10, 235) ;  drawstring(  combo" . line_one  ); 
moveto (10, 255) ;  drawstring(  combo" . line_t wo  );end  ; {Details} 
info_up  :=  true  ; 

end  {put  info  up} 
else  begin{  replace  with  normal  } 

redo_screen  ;  info_up  :=  false  ; 
end  ; {  replace  with  normal  } 
end  ; {  graph_details  } 


function  answer_yes_no (strl, str2, str3, str4 :  string80) :  boolean; 
var 

theltem  :  integer; 

Yes_NoPtr  :  DialogPtr; 
begin {  answer_yes_no  } 

SetCursor (Arrow) ; 

ParamText (strl, str2, str3, str4) ;  {  and  set  up  as  parameter  text  } 

Yes_NoPtr  :=  getNewDialog (Yes_No_dlgID, NIL, Pointer (-1 ));{ get  d  box} 
ModalDialog (NIL, theltem) ;  {  put  dialog  box  up;  get  result  } 

if  theitem  =  1  then  answer_yes_no  :=  true 
else  answer_yes_no  :=  false; 

DisposDialog (Yes_NoPtr ) ;  {  get  rid  of  dialog  box  } 

end;  {  answer_yes_no  } 


procedure  get_transform (  var  detail s_EX_trans, 

details_WY_trans ; 
transname  : 

var  change s_made  : 


var 

itemtype, 

position 

ok_button 

trPtr 

theltem 


itemhit,  itemNo, 
Integer 
boolean 
DialogPtr; 
Handle 


itof f , 


di splay _rect 


Rect 


transform_type; 
string80  ; 
boolean  ) ; 
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EN_str  :  str255 

En_dial  :  real 

number s_good  :  boolean 

procedure  validate_button (  itemhit:  integer)  ; 
var  itoff  :  integer  ; 

itemtype  :  integer; 

theltem  :  Handle; 

thecontrol:  ControlHandle; 
display_rect :  rect; 

procedure  btnst (  itemNo  :  integer  ;  on  :  boolean  )  ; 
begin  {  btnst  -  set  the  state  of  button  matching  the  ItemNo.} 
GetDItem (trPtr, itemNo, itemtype, theitem, di splay _rect ) ; 
thecontrol : =controlhandle (theitem) ; 
if  on  then  setctlvalue (thecontrol, 1 ) 
else  setctlvalue (thecontrol, 0) ; 
end  ;  {  btnst  } 

begin { val idate_button } 
case  itemhit  of 

11 . .  19 :begin  for  itoff:=llto  19do  btnst (itoff , false) ; 
btnst (itemhit, true) ;end; 

21 . .  29:begin  for  itoff :=21to  29do  btnst (itoff , false) ; 
btnst (itemhit, true) ;end; 

31.. 39:begin  for  itoff:=31to  39do  btnst (itoff , false) ; 
btnst (itemhit, true) ;end; 

41.. 49:begin  for  itoff :=41to  49do  btnst (itoff , false) ; 
btnst (itemhit, true) ;end; 

end; {of  case  1} 
case  itemhit  of 

11.16. .  19 : begin 

GetDItem (trPtr, 20, itemtype, theitem, di splay _rect)  ; 

SetIText (theitem,  ' ' ) ; 
end; 

21.26..  29 :begin 

GetDItem (trPtr, 30, itemtype, theitem, display_rect)  ; 

SetIText (theitem, ' ' ) ; 
end; 

31.36..  39:begin 

GetDItem (  trPtr, 40, itemtype, theitem, display_rect) ; 

SetIText (theitem, ' 1 ) ; 
end; 

41.46..  49 :begin 

GetDItem (  trPtr, 50, itemtype, theitem, display_rect) ; 

SetIText (theitem, ' ' ) ; 
end; 

end; {of  case  2} 
case  itemhit  of 


12. 

.15: 

SellText  ( 

trPtr, 

20, 

0, 

6  ) ; 

22. 

.25: 

SellText  ( 

trPtr, 

30, 

0, 

6  )  ; 

32. 

.35: 

SellText { 

trPtr, 

40, 

0, 

6  ) ; 

42. 

.45: 

SellText  ( 

trPtr, 

50, 

0, 

6  ); 

end; {of  case  3} 
end; { validate_button} 

procedure  f ill_in_dial_box (  this_trans:  transform_type)  ; 
var 

row,  itemtype,  the_button:  integer  ; 
theitem  :  Handle 

Str_for_dial  :  str255 
display_rect  :  rect 
begin  { fill_in_dial_box) 
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for  row  :=  1  to  4  do 
begin {each  row} 

case  this_trans [row] . ttype  of 


tnone 

the 

button 

= 

row* 10 

+  1 

tadd 

the_ 

button 

= 

row*10 

+  2 

tminus 

the_ 

_button 

= 

row*10 

+  3 

ttimes 

the_ 

button 

= 

row* 10 

+  4 

tdiv 

the 

button 

= 

row* 10 

+  5 

tlog 

the 

button 

row*10 

+  6 

tin 

the 

button 

row* 10 

+  7 

talog 

the_ 

Jbutton 

= 

row* 10 

+  8 

tain 

the 

button 

= 

row* 10 

+  9 

end; {of  case} 

validate_button (  the_button  ); 

case  the_button  of  12.. 15,  22.. 25,  32.. 35,  42.. 45: begin 
RealToStr (this_trans [row] .n,  Str_for_dial ) ; 

GetDItem (trPtr, row*10+10, itemtype, theitem, display_rec 
SetIText (theitem, Str_for_dial ) ;  end;  end; {of  case 
end; {each  row} 

SelIText(  trPtr,  20,  0,  6  ); 
end  ;  {fill_in_dial_box} 

procedure  get_values_to_save (  var  this_trans:  transform_type; 

var  good_text:  boolean  )  ; 

var 

item_look,  row,  itemtype,  the_button  :  integer  ; 
theitem  :  Handle 

dial  str  :  str255  ; 


procedure  assign_ttype (  row, 
begin { ass ign_t type } 

case  a_turned_on_item  of 
1 : this_trans [row] .ttype 
2 : this_trans [row] .ttype 
3 : this_trans [row] .ttype 
4 : this_trans [row] .ttype 
5 : this_trans [row] .ttype 
6 : this_trans [row] .ttype 
7:this_trans[row] .ttype 
8:this_trans[row] .ttype 
9:this_trans[row] .ttype 
end; {of  case} 
end; {assign_ttype} 


a_turned_on_item  :  integer  )  ; 


=  tnone  ; 
=  tadd  ; 

=  tminus; 
=  ttimes; 
=  tdiv  ; 

=  tlog  ; 

=  tin  ; 

=  talog  ; 
=  tain  ; 


begin{  get_values_to_save  } 
row  : =  0 ; 

good_text  :=  true; 

repeat {count  through  the  rows  as  long  as  text  returned  is  OK} 
begin {process  the  dialogue  box  row  by  row} 
row  :=  row  +  1; 
for  item_look  :=  1  to  9  do 

begin{left  to  right  of  each  row} 

GetDItem (trPtr, row*10+item_look, itemtype, 
theitem, display_rect) ; 

if  GetCtlvalue(  controlhandle (theitem)  )  =  1  then 
begin{ turned  on  button  found} 
assign_ttype (row,  item_look); 
the_button  :=  row*10+item_look; 
end  ;  {turned  on  button  found} 
end;  {left  to  right  of  each  row} 
case  thejbutton  of  12.. 15,  22.. 25,  32.. 35,  42.. 45: 
begin{text  is  available} 

GetDItem (trPtr, row*10+10, itemtype, theitem, display _rect)  ; 
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GetIText (theitem, dial_str )  ; 
position  :=  1  ; 

this_trans [row] . n: =rdreal (dial_str, position,  ok) ;{ str  rel} 
if  not  ok  then 

begin {text  was  no  good} 

SysBeep  (1) ; 
good_text  :=  false  ; 
end;  {text  was  no  good} 
end; {text  is  available} 
end; {of  case  for  operator  without  number} 
case  the_button  of  11, 16 .. 19, 21, 26. . 29, 31, 36 .. 39, 41, 46 .. 49 : 
begin{nil  or  log  button  pressed} 

GetDItem  (trPtr, row*10+10, itemtype, theitem, display_rect)  ; 
GetIText (theitem, dial_str)  ; 
if  dial_str  <>  ' 1  then 

begin{  a  number  was  entered,  dut  no  button  clicked  } 
SysBeep  (1) ; 
good_text  ;=  false  ; 

end;  {  a  number  was  entered,  dut  no  button  clicked  } 
end; {nil  or  log  button  pressed} 
end; {of  case  for  number  without  operator} 
end; {process  the  dialogue  box  row  by  row} 
until  (  row  =  4  ) or (not  good_text) ; 
end  ; {  get_values_to_save  } 


begin  {  get_transform  } 
number s_good  :=  false  ; 

paramtext (transname, 'Modify  X  values )  ; 
trPtr  :=  getNewDialog (trnsfrm_dlgID,  NIL,  Pointer (-1)  )  ; 
repeat {  may  need  to  repeat  if  error  checking  finds  a  problem  } 
begin 

fill_in_dial_box (  detail s_EX_trans  ); 
repeat  {  interact  with  dialogue  box  } 

ModalDialog (NIL, itemhit) ; {  put  dialog  box  up;  get  result} 
validate  Jbutton (  itemhit  ); 

until  (  itemhit  =  1  )  or  (  itemhit  =  2  );{0K  or  cancel  pushed} 
if  itemhit  =  1  then{if  x's  OK  hit, save  x  detail,  do  y  detail} 
get_values_to_save (  detail s_EX_trans,  numbers_good) 
else  numbers_good  :=  true  ;  {  exit,  preparing  to  cancel  } 
end; 

until  numbers_good; 

DisposDialog (trPtr ) ;  {get  rid  of  x  dialog  box} 

numbers_good  :=  false  ; 

if  itemhit  =  1  then  {  if  x's  were  OK  ..do  the  y.  } 
begin {  x's  were  ok,  do  the  y  dialogue  } 

trPtr  ;=  getNewDialog (trnsfrm_dlgID, NIL, Pointer (-1) )  ; 
repeat {  may  need  to  repeat  if  error  checking  finds  a  problem  } 
paramtext (transname, 'Modify  Y  values.','','')  ; 
fill_in_dial_box (  details_WY_trans  ); 
repeat  {  interact  with  dialogue  box  } 

ModalDialog (NIL, itemhit) ;  {  put  dialog  box  up  get  result} 
validate_button (  itemhit  ); 
until  (  itemhit  =  1  )  or  (  itemhit  =  2  )  ; 
if  itemhit  =  1  then  {  y  values  choosen,  ok  pressed  } 

get_values_to_save (  details_WY_trans, numbers_good) {y ' s  OK?} 
else  numbers_good  :=  true  ;  {  exit,  preparing  to  cancel  } 

until  number s_good; 

DisposDialog(trPtr) ;  {  get  rid  of  dialog  box  } 
changesjnade  :=  true  ; 
end  {  x's  were  ok,  do  the  y  dialogue  } 
else 

if  itemhit  =  2  then  changes_made  :=  false  ; 
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end  ; {  get_transform  } 


procedure  combine_nlog  ; 


itemtype,  position  :  Integer; 

ok_button  :  boolean  ; 

nLogDialPtr  :  DialogPtr; 

theltem  :  Handle  ; 

display_rectangle  :  Rect  ; 

EN_str  ;  str255  ; 

En_dial  :  real  ; 

begin 

nLogDialPtr  :=  getNewDialog (nLogdlglD, NIL,  Pointer (-1 ) )  ; 
ModalDialog (NIL, itemtype) ;  {  put  dialog  box  up,  get  result  } 

if  itemtype  =  1  then 

begin{  ok  button  pressed} 

GetDItem (nLogDialPtr, 3, itemtype, theitem, display_rectangle)  ; 
GetIText (theitem, EN_str)  ; 
position  :=  1  ; 

EN_dial  :=  rdreal (  EN_str,  position,  ok  );{  Convert  1  str  } 
DisposDialog (nLogDialPtr) ;  {  get  rid  of  dialog  box  } 

combine_charts (  EN_dial  )  ; 
end  {  ok  button  pressed} 
else 

begin  {  cancel  button  pressed  } 

DisposDialog (nLogDialPtr) ;  {  get  rid  of  dialog  box  } 

redo_screen  ;  {  return  to  previous  scree  } 

end  ; {  cancel  button  pressed  } 
end  ; {  combine_nlog  } 

procedure  save_question (  var  confirmed:  boolean  ); 


{  get  rid  of  dialog  box 
{  return  to  previous  scree 


itemhit,  itemtype,  position  :  Integer; 
ok_button,  cancel,  fr  button,  cm  button 


boolean 


saveDialPtr 

theitem 

display_rect 

EN_str 

En_dial 

thecontrol 


DialogPtr; 
Handle  ; 

Rect  ; 
str255  ; 
real  ; 

ControlHandle; 


procedure  btnst (  itemNo  :  integer  ;  on  :  boolean  )  ; 
begin  {  btnst  -  set  the  state  of  the  button  matching  the  ItemNo.  } 
GetDItem (saveDialPtr, itemNo, itemtype, theitem, display_rect) ; 
thecontrol : =controlhandle (theitem) ; 
if  on  then  setctlvalue (thecontrol, 1) 
else  setctlvalue (thecontrol, 0) ; 
end  ;  {  btnst  } 


begin 

saveDialPtr  :=  getNewDialog (SaveDialoguID, NIL, Pointer (-1) )  ; 
ok_button  :=  false; 
cancel  :=  false; 
if  not  this_front_saved  then 
fr_button  :=  false 

else 

begin 

btnst  (  2,  true  ); 
fr_button  :=  true; 
end; 

if(  (normal_comb  OR  nlog_comb) and(not  this_combo_saved)  )then 
cm  button  :=  false 
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else 

begin 

btnst  (  3,  true  ); 
cmjbutton  :  =  true; 
end; 
repeat 

ModalDialog (NIL, itemhit) ;  {  put  dialog  box  up;  get  result} 

if  itemhit  =  2  then 

begin {  front  save  hit  } 

if  fr_ button  then  SysBeep(l) 
else  begin 

save_f oreg^  ound; 
if  this_front_saved  then  begin 

btnst (  itemhit,  true  );  fr_button  ;=  true;  end; 
SetCursor (Arrow) ; 

if  cm_ button  and  fr_button  then  ok_button  :=  true;  end; 
end  {  front  save  hit  } 
else  if  itemhit  =  3  then 
begin{  combo  save  hit  } 

if  cm_button  then  SysBeep(l) 
else  begin 

save_combi nation; 
if  this_combo_saved  then  begin 

btnst (  itemhit,  true  );  cmjbutton  ;=  true;  end; 
SetCursor (Arrow) ; 

if  fr_button  and  cm_button  then  ok_button  :=  true;  end; 
end  {  combo  save  hit  } 

else  if  itemhit  =  1  then  ok_ button  :=  true  {  ok  to  quit  hit  ) 
else  if  itemhit  =  4  then  cancel  :=  true;  {  cancel  Quit  hit  } 
until  ok_button  or  cancel;  {  ok  button  pressed  } 

DisposDialog(saveDialPtr) ;  {  get  rid  of  dialog  box  } 

confirmed  :=  not  cancel; 
end; {  save  question  } 

procedure  equivalent_axis_values (  event_j?oint :  point  ); 
var 

mouse— point:  point;  equiv_axis_x,  equiv_axis_y :  real; 
in_from_left,  up_ frorrjbottom:  integer; 
begin { equivalent_axis_values } 

if  (back~ . is_read)  and  (overlaid)  then 
begin{ok  to  proceed  with  process} 

MainPeek  :=  windowPeek (MainPtr) ; {get  pointer  to  window  record} 
mouse_point  .h:  =event— point .  h-MainPeek* .  contRgn^~  .  rgnBBox .  left; 
mouse— point  .v:  =event— point  .v-MainPeekA  .contRgn/'~  .  rgnBBox .  top  ; 
pensize (3,3) ; forecolor (background_colour )  ; 
penpat (black) ;textsize (11)  ; 

moveto(  cross_point . h-6,  cross-point .v-1  );  {  erase  } 

lineto(  cross__point.h+4,  cross_ point . v-1  );  {  previous  } 

moveto (  cross— point. h-1,  cross_point . v+4  );  {  cross  } 

lineto(  cross— point. h-1,  crossjpoint .v-6  ); 

pensize  (40, 1) ;  {  wipe  a  rectangle  for  the  x,y  values} 

moveto (EXwindowdots-38, 20) ; lineto (EXwindowdots-38,  100)  ; 

cross— point. h  :=  mouse— point. h; 

cross-point .v  :=  mouse_ point. v; 

pensize (3, 3) ; forecolor (grid_ colour)  ; 

moveto  (  mouse— point . h-6,  mouse_ point . v-1  ); 

lineto(  mouse— point. h+ 4,  mouse_point .v-1  ); 

moveto (  mousejpoint.h-1,  mouse_ point . v+4  ); 

lineto(  mouse_point.h-l,  mouse-point .v-6  ); 

pensize (1,1); forecolor (cross_colour) ; 

moveto (  mouse_ point. h-5,  mouse— point .v  ); 

lineto(  mouse_point.h+5,  mouse— point .v  ); 

moveto(  mousej?oint .h,  mouse_point .v+5  ); 
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lineto(  mouse_point . h,  mouse _point . v-5  ); 

forecolor (x_y_values_col) ; 

moveto (  EXwindowdots-37,  30  ); 

drawstring ( 'Mouse' )  ; 

moveto (  EXwindowdots-37,  40  ); 

drawstring( 'Click' )  ; 

{  Take  data.  Subtract  back  data  minimum  value.  Scale  it  (if  front),} 
{  add  offset  (if  front),  ROUND  data  ,  add  x  data  or  subtract  y  data,} 


{  Window  scale  the  lot,  and  add  window  pixel  position  offset  to  it.  } 
{  Note  prt_x_mv_pixel  &  prt_y_mv_jpixel  are  0  except  when  printing.  } 
{  xplot  :=  in_from_left  } 
{  +  round(  (chart^  . EXoffset  +  (chart~ .  EX  [i ]  -  back"' . EXmin)  } 
{  *  chart'' .  EXoff scale  )  *  window_EX_scale  )  ;  } 
{yplot  :=  up_f rom_bottom  } 
{  -  round(  (chart"' .WYoff  set  +  (chart^ .  WY  [i]  -  back^.WYmin)  } 
{  *  chart"' .WYoff scale)  *  window_WY_scale  )  ;  } 
{  Therefore  to  get  axis  values  from  a  mouse  click  do  the  following:  } 
{  Take  mouse  point  h  or  v.  Subtract  window  pixel  position  offset,  } 
{  if  x  leave  positive,  but  make  y  negative,  } 
{  UN-window-scale  mouse  point,  then  add  back  data  min  value.  } 


moveto (  EXwindowdots-37,  60  ); 
drawstring (’ X  scale'); 

{ 7 . 5%in} in_from_left : =Round (EXwindowdots* ( (1 . 0-useEXscreen) /2  ) ) ; 
equiv_axis_x  :=  (mouse__point . h  -  in_from_left  ) /window_EX_scale 
+  back^.EXmin; 

number_stamp (  equiv_axis_x,  0,  EXwindowdots-37,  70  ); 
moveto (  EXwindowdots-37,  90  ); 
drawstring ( ' Y  scale'); 

up_from_bottom: =Round (WYwindowdots* (useWYscreen+ (1 .0- 
useWY screen) /2) ) ; 

equiv_axis_y  :=  (  up_from_bottom  -  mouse_point . v  ) 
/window_WY_scale  +  back~ . WYmin; 
number_stamp (  equiv_axis_y,  0,  EXwindowdots-37,  100  ); 
end; {ok  to  proceed  with  process} 
end; {equivalent_axis_values} 


procedure  invoke_the_list_manager  ; 
var 

rView,  databounds  :  Rect; 

cSize,  theCell,  MLoc  :  Point; 

theProc,  WLoc,  i,  modifiers  :  INTEGER; 

value_as_real  :  REAL; 

value_as_string  :  string; 

theWindow  :  WindowPtr; 

drawlt, hasGrow, scrollHoriz, scrollVert, 
clicked_in_list,  double_clicked  :  BOOLEAN; 

dataviewHDL  :  ListHandle; 

begin  {  invoke_the_list_manager  } 

list_up  :=  true  ;  {  set  global  boolean  for  menu  grey  control  } 
double_clicked  :=  false; 

(*theWindow  :=  MainPtr;*) 
theWindow  :=  DatWPtr; 

SetPort (DatWPtr) ;  (DatWPtr^ . txFont  :=  2;} 

SelectWindow (DatWPtr) ;  {  and  make  window  active  } 

SetCursor (CursList [watchCursor ]  ) ;  {  set  cursor  to  watch  } 

textsize(12) ;  forecolor (background_colour) ; 
pensize (1,29) ; moveto (1, 1 ) ; lineto (220, 1) ; pensize (2,2) ; 
forecolor (foreground_colour) ; 

moveto (20, 10) ;  drawstring ('  Back  Chart  Front  Chart'); 

moveto (20, 25) ; drawstring ( '  X  Y 

moveto (1,28); lineto (219, 28) ; lineto (219, 1) ; 
rView. top  :=  30;  rView. left  :=  10; 


Front  Chart'); 
X 


Y'  )  ; 
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rView. bottom  :=  290;  rView. right  :=  205  ; 
dat abounds . top  ;=  1  ;  databounds . left  :=  1; 
databounds . bottom  :=  258;  databounds . right  :=  5  ; 

cSize.h  ;=  50;  cSize.v  :=  15; {Size  of  cell  not  specified,  so  deflt} 
theProc  :=  0; 
drawlt  :=  true; 
hasGrow  :=  true; 

scrollHoriz  ;=  false;  scrollVert  :=  true; 

dataviewHDL  :=  LNew  (rView,  databounds,  cSize,  thePicc,  theWindow, 
drawlt,  hasGrow,  scrollHoriz,  scrollVert); 
for  theCell.v  :=  1  to  256  do 

begin{  jump  to  next  row,  fill  in  an  element  in  each  column  } 
theCell . h  ;=  1; 

LClrCell (theCell, dataviewHDL) ; 
i  :=  theCell.v; 
value_as_real  :=  back"' .EX  [i ] ; 

RealToStr(  value_as_real,  value_as_string  ); 

LSetCell (@value_as_string[l] ,  5,  theCell,  dataviewHDL); 
theCell. h  :=  2; 

LClrCell (theCell, dataviewHDL)  ; 

LClrCell (theCell, dataviewHDL) ; 
value_as_real  :=  back"' . WY  [i ] ; 

RealToStr(  value_as_real,  value_as_string  ); 

LSetCell (@value_as_string[l) ,  5,  theCell,  dataviewHDL); 
theCell. h  :=  3; 

LClrCell (theCell, dataviewHDL)  ; 
i  :=  theCell.v; 
if  front"' .  is_read  then 

begin{  put  in  front  listing  } 
value_as_real  :=  front ~ . EX [ i ] ; 

RealToStr(  value_as_real,  value_as_string  ); 

LSetCell (@value_as_string[l] ,  5,  theCell,  dataviewHDL); 
end;  {  put  in  front  listing  } 
theCell. h  :=  4; 

LClrCell (theCell, dataviewHDL) ; 
if  front"' .  is_read  then 

begin{  put  in  front  listing  } 
value_as_real  ;=  front"' .WY  [i]  ; 

RealToStr (  value_as_real,  value_as_string  ); 

LSetCell (@value  as_string[l] ,  5,  theCell,  dataviewHDL); 
end;  {  put  in  front  listing  } 
end;  {  jump  to  next  row  } 

FlushEvents (everyEvent, 0) ;  {  clear  events  from  previous  state  } 

SetCursor (Arrow) ; 

repeat 

if  OSEventAvail (mDownMask  +  keyDownMask,  theEvent)  then 
begin{  an  Operating  System  event!  } 

MLoc  :=  theEvent .Where;  {  get  mouse  position  } 

WLoc  :=  FindWindow (MLoc, theWindow) ;{ get  window, loc  in  window  } 
MLoc.v  ;=  MLoc.v  -  35  ; 

if (theWindow  =  DatWPtr) and (theEvent .What  =  mouseDown) then 
begin 

double_clicked  :=  LClick (MLoc, modifiers, dataviewHDL) ; 
FlushEvents (everyEvent, 0) ; 
end; 

end;  {  an  Operating  System  event!  } 
until  do uble_c licked; 

LDispose (  dataviewHDL  ) ; 
list_up  :=  false; 
theWindow  :=  MainPtr; 

SetPort (MainPtr) ; 

SelectWindow (MainPtr) ;  {  and  make  window  active  } 

FlushEvents (everyEvent, 0) ; {clear  events  -  prevents  cross  appearing) 
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redc_screen; 

FIushEver.ts (everyEvent, 0) ;{ clear  events  -  prevents  cross  appearing- 
er.d;  {  ir.voke_the_Iist_manager  } 


<$S  macstuff} 

{  *********  items  in  Apple  Menu  ***********  j 

procedure  DoAbout; 

{  purpose  bring  up  'About...'  box  using  a  dialog  box  } 

var 

theltem  :  Integer; 

AboutPtr  :  DialogPtr; 

S1,S2,S3  :  StringHandle; 

begin 

SetCursor (CursList [myCursor] ~~) ;  {  set  to  my  cursor 

S’nowCursor;  {  and  turn  it  back,  on 

51  ;=  GetString (TextllD) ;  {  get  text  from  resource  file 

52  :=  GetString (Text2ID) ; 

53  :=  GetString (Text3lD) ; 

ParamText (Sl~^, S2^~, S3~~, ' ' ) ;  {  and  set  up  as  parameter  text 

AboutPtr  :=  getNewDialog  (About  ID,  NIL,  Pointer  (-1 ));{ get  dialog  box  .- 
ModalDialog (NIL, theltem) ;  {  put  dialog  box  up;  get  result  } 

DisposDialog (AboutPtr) ;  {  get  rid  of  dialog  box 

Redo_screen; 

SetCursor (Arrow) ; 
end;  {  of  proc  DoAbout  } 

procedure  DoDeskAcc (Item  :  Integer); 

{  purpose  start  up  desk  accessory  from  Apple  menu  ) 

var 

SavePort  :  GrafPtr; 

RefNurr.  ;  Integer; 

DName  :  String; 

begin 

GetPort (SavePort) ;  {  save  port  before  starting  it  } 

Getltem (MenuList [AppleM] , Item, DName) ; {  get  name  of  desk  accessory  } 
refNum  :=  OpenDeskAcc (DName) ;  {  and  start  that  sucker  up!  } 

SetPort (SavePort) ;  {  restore  grafport  and  continue  } 

end;  {  of  proc  DoDeskAcc  } 

{  *********  event  handling  routines  ***********  j 

procedure  ToggleFlag (var  Flag  :  Boolean;  Mndx, Indx  :  Integer); 

{  purpose  checks  or  de-checks  item  Indx  in  menu  Mndx  last  update  2C  Aug  56} 


var 

Ch  :  Char; 

begin 

Fl^g  :=  not  Flag;  {  toggle  flag  (for  you)  } 

if  iiag  {  if  flag  is  True...  } 

then  Ch  :=  Chr (CheckMark)  (  then  check  item  in  menu  } 

else  Ch  :=  Chr(NoMark);  {  else  clear  any  checkmark  } 

SetltemMark (MenuList [Mndx] , Indx,  Ch) (  put  char  by  item  in  menu  } 
end;  {  of  proc  ToggleFlag  ) 


procedure  SetltemState (Mndx, Indx  :  Integer;  Flag  :  Boolean); 

{  purpose  if  true,  enable j  item  Indx  of  menu  Mndx;  else  disables  last 
update  22  Aug  86  } 
begin 
if  Flag 

then  Enableltem  (MenuList [Mndx] , Indx) 
else  Disableltem (MenuList [Mndx] , Indx) 
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checkitem (menulist [Mndx] , Indx, false)  ;  {uncheck  every  menu  item} 
end;  {  of  proc  SetltemState  } 

procedure  Setltemcheck (Mndx, Indx  :  Integer); 

{  purpose  sets  the  check  mark  next  to  item  } 
begin 

Checkitem(menulist [Mndx] , indx,  true) ; 
end;  {  of  proc  Setltemcheck  } 


procedure  UpdateMenu; {  enable  or  disable  items  in  I/O  menu  as  needed) 
var  i  :  integer  ; 
begin  {  UpdateMenu  } 

SetltemState (FileM, 1,  not  list_up  );  {  read  foregrd  } 

if  back-' .  is_read  then  setitemcheck (FileM, 1) ; 

SetltemState (FileM, 2, back~ . is_read  and  not  list_up) ; {  read  backgrd  } 
if  front7' .  is_read  then  setitemcheck (FileM, 2) ; 

SetltemState (FileM, 3, not  info_up  and  not  list_up) ; 
if  not (  (back_EX_trans [1] . ttype  =  tnone)and 
(back_EX_trans [2 ] . ttype=  tnone)and 
(back_EX_trans [3] .ttype  =  tnone)and 
(back_EX_trans [4] .ttype  =  tnone)and 
(back_WY_trans [1] .ttype  =  tnone)and 
(back_WY_trans [2] . ttype  =  tnone)and 
(back_WY_trans [3] .ttype  =  tnone)and 
(back_WY__trans  [4]  .  ttype  =  tnone)  ) 
then 

setitemcheck (FileM, 3) ; 

SetltemState (FileM, 4, not  info_up  and  not  list_up) ; 
if  not  (  (fror.t_EX_trans  [1]  .ttype  =  tnone)and 
(front__EX_trans  [2]  .  ttype=  tnone)  and 
(front_EX_trans [3] .ttype  =  tnone)and 
(front_EX_trans [4] .ttype  =  tnonejand 
(f ront_WY_trans [1 ]. ttype  =  tnone)and 
(front_WY_trans [2] .ttype  =  tnonejand 
(front_WY_trans [ 3] . ttype  =  tnone)and 
(front_WY_trans[4] .ttype  =  tnone)  ) 
then 

setitemcheck (FileM, 4) ; 

SetltemState (FileM, 5, false) ; {  Item  5, line  only, Item  6  save  foregrd} 
SetltemState (FileM, 6, back^ . is_read  and  front^ . is_read  and 

not  list_up) ; 

if  this_front_saved  then  setitemcheck (FileM, 6) ; 

SetltemState (FileM, 7, combo~ . is_read  and  not  list_up) ; { save  comb  ch} 
if  this_combo_saved  then  setitemcheck (FileM, 7) ; 

SetltemState (FileM, 8, not  info_up  and  not  list_up); 
if  not (  (save_EX_trans [1] .ttype  =  tnonejand 
(save_EX_trans [2] . ttype=  tnonejand 
(save_EX_trans [3] . ttype  =  tnonejand 
(save_EX_trans[4] .ttype  =  tnonejand 
(save_WY_trans [1] .ttype  =  tnonejand 
(save_WY_trans [2] . ttype  =  tnonejand 
(save__WY_trans  ( 3]  .  ttype  =  tnonejand 
(save_WY_trans[4] .ttype  =  tnone)  ) 
then 

setitemcheck (FileM, 8) ; 

SetltemState (FileM, 9, not  info_up  and  not  list_up) ; 
if  not (  (combo_EX_trans[l] .ttype  =  tnonejand 
(combo_EX_trans [2] ,ttype=  tnonejand 
(combo_EX_trans [3] .ttype  =  tnonejand 
(combo_EX_trans [4] .ttype  =  tnonejand 
(combo_WY_trans [1] .ttype  =  tnonejand 
(combo_WY_trans [2] . ttype  =  tnonejand 
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(combo_WY_trans [3] .ttype  =  tnone)and 
(combo_WY_trans [ 4 ] . ttype  =  tnone)  ) 
then 

setitemcheck (FileM, 9)  ; 

SetltemState (FileM, 10, false) ;  {  line  only  } 

SetltemState  (FileM,  11,  back"' .  is_read  and  not  info_up  and 
not  list_up) ;  {  print} 

SetltemState (FileM, 12, false) ;  {  line  only  } 

SetltemState (FileM, 13, true) ;  {  Can  always  QUIT  } 

SetltemState (EditM, 0, back" . is_read  and  not  info_up  ); 

SetltemState (EditM, 6, back". is_read  and  not  info_up  ); 
if  list_up  then  setitemcheck (EditM, 6)  ; 

SetltemState  (ScreenM,  0,  back'' .  is_read  and  not  list_up)  ; 

SetltemState  (ScreenM,  1,  (back"  .  is_read  or  front'' .  is_read)  and 
not  list_up) ;  {  Put  up  graph  details  } 
if  info_up  then  setitemcheck (screenM, 1) ; 

SetltemState (ScreenM,  2,  false); 

SetltemState  (ScreenM,  3,  back'' .  is_read  and  front"  .  is_read  and  not 
info_up  and  not  list_up) ; {overlaid  /  split  } 

SetltemState (ScreenM,  4,  back" . is_read  and  not  info_up  and  not 
list_up  and  not (overlaid  and  comb_just_put_up)  ); 
if  back'' .  showing  then  setitemcheck  (screenM,  4 ) ; 

SetltemState (ScreenM,  5,  back" . is_read  and  front" . is_read  and  not  info_up 
and  not  list_up  and  not (overlaid  and  comb_just_put_up) ) ; 
if  front" . showing  then  setitemcheck (screenM, 5) ; 

SetltemState (ScreenM,  6,  combo" . is_read  and  not  info_up  and  not 
list_up  and  not (overlaid  and  comb_just_put_up)  ); 
if  combo" . showing  then  setitemcheck (ScreenM, 6) ; 

SetltemState (ScreenM,  7,  false); 

SetltemState (ScreenM, 8, back" . is_read  and  not  info_up  and 
not  list_up) ; {grid} 

if  grid_up  then  setitemcheck (screenM, 8) ; 

SetltemState (ScreenM,  9,  back" . is_read  and  not  info_up  and  not 
list_up  and  overlaid) ; {axis} 
if  axis_up  then  setitemcheck (screenM, 9) ; 

SetltemState (MoveM, 0,  front" . is_read  and  front" . set_to_di splay  and 
not  info_up  and  not  list_up) ; 

SetltemState (MoveM, 1,  front". i spread  and  front" . set_to_display  and 
overlaid  and  not  info_up  and  not  list_up  ); 

SetltemState (MoveM, 2,  front" .  is__read  and  front" . set_to_di splay  and 
overlaid  and  not  info_up  and  not  list_up) ; 

SetltemState (MoveM, 3,  front" . is_read  and  front" . set_to_di splay  and 
not  info_up  and  not  list_up) ; 

SetltemState (MoveM, 4,  front" . is_read  and  front" . set_to_display  and 
not  info_up  and  not  list__up) ; 

SetltemState (MoveM,  5,  false) ; 

SetltemState (MoveM, 6,  front". i spread  and  front" . set_to_display  and 
not  info_up  and  not  list_up) ; 

SetltemState (MoveM, 7,  front" . is_read  and  front" . set_to_di splay  and 
not  info_up  and  not  list_up) ; 

SetltemState (MoveM, 8,  front" . is_read  and  front" . set_to_display  and 
not  info_up  and  not  list_up) ; 

SetltemState (MoveM, 9,  front". is_read  and  front" . set_to_di splay  and 
not  info_up  and  not  list_up) ; 

SetltemState (MoveM, 10, false)  ; 

SetltemState (MoveM, 11, front" . is_read  and  front" . set_to_di splay  and 
not  info_up  and  not  list_up) ; {wrap  left} 

SetltemState (MoveM, 12, front", is_read  and  front". set_to_di splay  and 

not  info_up  and  not  list_up) ; {wrap  right} 
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SetltemState (ResizeM, 0,  front"' .  is_read  and  front~  .  set_to_display  and 
not  info_up  and  not  list_up) ; 

SetltemState (ResizeM, 1,  front~ . is_read  and  front"' . set_to_display  and 
overlaid  and  not  info_up  and  not  list_up) ; 

SetltemState (ResizeM, 2,  front~ . is_read  and  front"' . set_to_di splay  and 
overlaid  and  not  info_up  and  not  list_up) ; 

SetltemState  (ResizeM,  3,  front"' .  is_read  and  front"' .  set_to_di splay  and 
not  info_up  and  not  list_up) ; 

SetltemState (ResizeM, 4,  front~ . is_read  and  front^ . set_to_display  and 
not  info_up  and  not  list_up) ; 

SetltemState (ResizeM, 5,  false) ; 

SetltemState  (ResizeM,  6,  front"' .  is_read  and  front^ .  set_to_di splay  and 
not  info_up  and  not  list_up  ) ; 

SetltemState  (ResizeM,  7,  front"' .  is_read  and  front"' .  set_to_di splay  and 
not  info_up  and  not  list_up) ; 

SetltemState (ResizeM, 8,  front~ . is_read  and  front~ . set_to_di splay  and 
not  info_up  and  not  list_up  ) ; 

SetltemState  (ResizeM,  9,  front"' .  is_read  and  front"' .  set_to_di splay  and 
not  info_up  and  not  list_up) ; 
case  percent_change  of 

10  :  begin  setitemcheck (MoveM, 6) ;  setitemcheck (ResizeM, 6) ;  end  ; 

5  :  begin  setitemcheck (MoveM, 7) ;  setitemcheck (ResizeM, 7) ;  end  ; 

2  :  begin  setitemcheck (MoveM, 8) ;  setitemcheck (ResizeM, 8) ;  end  ; 

1  :  begin  setitemcheck (MoveM, 9) ;  setitemcheck (ResizeM, 9) ;  end  ; 

end  ;{case  to  set  tick  on  percent} 

SetltemState (ResizeM, 10,  false) ; 

SetltemState (ResizeM, 11,  backA . is_read  and  front^ . is_read  and 
not  info_up  and  not  list_up  ) ; 

SetltemState (ResizeM, 12,  false); 

SetltemState  (ResizeM,  13,  front"' .  is_read  and  not  info__up  and 
not  list_up  ) ; 

SetltemState  (ResizeM,  14,  f  ront"' .  is_read  and  not  info_up  and 
not  list_up  ); 

SetltemState (AnalysisM.^  back"' .  is_read  and  front"' .  is_re ad  and 
not  info_up  and  not  list_up); 

SetltemState (AnalysisM, 1,  back^ . is_read  and  front~ . is_read  and 
not  info_up  and  not  list_up) ; 
if  normal_comb  then  setitemcheck (AnalysisM, 1)  ; 

SetltemState  (AnalysisM,  2,  back"' .  is_read  and  f  ront"' .  i  s_read  and 
not  info_up  and  not  list_up); 
if  nlog_comb  then  setitemcheck (AnalysisM, 2)  ; 

SetltemState (AnalysisM,  3,  false  ); 

SetltemState  (AnalysisM,  4,  back^ .  is_read  and  f  ront"' .  is_read  and 
not  info_up  and  not  list_up) ; 
if  not ( (back_weight  =1) and(front_weight  =  l))then 
setitemcheck (AnalysisM, 4) ; 

SetltemState (ColourM, 0,  not  info_up  and  not  list_up  ); 

SetltemState (ColourM, 1,  not  info_up  and  not  list_up  ); 

SetltemState (ColourM, 2,  not  info_up  and  not  list_up  ); 

SetltemState (ColourM, 3,  not  info_up  and  not  list_up  ); 

SetltemState (ColourM, 4,  not  info_up  and  not  list_up  ); 

SetltemState (ColourM, 5,  not  info_up  and  not  list_up  ); 

setitemcheck (ColourM, the_colour_choice) ; 
end;  {  of  proc  UpdateMenu  } 


procedure  handle_f ile_menu (  item  :  integer  )  ; 
var 

read_was_ok, 
change s_made, 
confirmed  :  boolean; 
begin {  handle_file_menu  } 
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case  item  of 

1: begin {  reading  a  back  chart  } 

info_up  :=  false  ;  {  in  case  graph  details  were  up.} 

if  backA . is_read  then  {If  a  back  chart  up,  get  rid  of  it} 
plot (remove, liftback, back)  ; 

Read_chart_file (  true,  back,  read_was_ok  );{read  backch} 
if  (read_was_ok)  and  (front'' . is_read)  then 
begin 

ClearWindow (MainPtr) ; {  Empty  window,  resize  screen  } 
Resize_to_screen; {New  back, -frt  offset-0  &off scale  1} 
end 
else 

redo_screen  ; 

end  ; {  reading  a  back  chart  } 

2:begin{  reading  a  front  chart  } 

info_up  :=  false  ;  {  in  case  graph  details  were  up.  } 

if  front~ . is_read  then  {If  a  front  ch  up,  get  rid  of  it} 
plot (remove, 0, front)  ; 

Read_chart_file (  false,  front,  read_was_ok)  ; 
redo_screen  ; 

end  ; {  reading  a  front  chart  } 

3 :begin{ choose  back  transformed} 

get_transform (  back_EX_trans, back_WY_trans, 

'Alter  Back  Read. ',  change s__made)  ; 
if  changes_made  then 

begin{  Valid  changes  made  in  dialogue  box.  } 
if  answer__yes_no  ( '  Do  you  want  to  set  the', 

'  FRONT  Transformation', 

'  the  same  as  the', 

'  BACK  Tranformation  ?'  )  then 

begin 

front_EX_trans  :=  back_EX_trans; 
front_WY_trans  :=  back_wy_trans; 
end 

end; {  Valid  changes  made  in  dialogue  box.  } 
redo_screen  ; 

end; {choose  back  transformed} 

4 :begin{ choose  front  transformed} 

if  answerj/es_no ( '  Do  you  want  to  set  the', 

'  FRONT  Transformation', 

'  the  same  as  the', 

'  BACK  Tranformation  ?'  )  then 

begin 

front_EX_trans  :=  back_EX_trans; 
front_WY_trans  :=  back_WY_trans; 
redo_screen  ; 
end 
else 
begin 

get_transform(  f ront_EX_trans, front_WY_trans, 
'Alter  Front  Read. ', change s_made) ; 

redo_screen;  {  repair  previous  screen  } 
end; 

end; {choose  front  transformed} 

5 :  ;  {  dummy  } 


6: begin {save  front  chart} 
info_up  :=  false  ; 
Save_Foreground; 
redo_screen  ; 
end  ;{save  front  chart} 
7 : begi n { save  combo  chart } 
info_up  :=  false  ; 
Save  Combination; 


{  in  case  graph  details  were  up.} 


{  in  case  graph  details  were  up. 
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redo_screen  ; 
end  ; { save  combo  chart } 

8:  begin 

get_transform (  save_EX_trans, save_WY_trans, 

'Alter  Front  Save. ' , change s_made ) ; 
redo_screen;  {  repair  previous  screen  } 
end; 

9:  begin 

get_transform (  combo_EX_trans, combo_WY_trans, 

'Alter  Combination  Save change s_made) ; 

redo_screen;  {  repair  previous  screen  } 
end; 

10:  ;  {  dummy  } 

11:  begin  do_print;  redo_screen;  end  ; 

12:  ; 

13:  begin  {QUIT) (*if  any_changes_to_file.  Save  -  booleans*) 

if ( (normal_comb  OR  nlog_comb) and (not  this_combo_saved) ) 
or (not  this_front_saved)  then 

if  front" .  is__read  then  save_question  (confirmed)  ; 
if  confirmed  then  finished  :=  true 
else  redo_screen; 
end;  (QUIT) 
end  ;  {  case  } 
end  ;  {  handle_file_menu  } 

procedure  handle_edit_menu (  item  :  integer  )  ; 
begin  {  handle_edit_menu  } 
case  item  of 
1,2,3, 4,5:  ; 

6  :  invoke_the_list_manager  ; 
end; {of  case) 

end;  {  handle_edit_menu  } 

procedure  handle_Screen_menu (  item  :  integer  )  ; 
begin  {  handle_Screen_menu  } 
case  Item  of 

1  :  graph_details  ; 

2  :  ;  {  dummy  ) 

3  :  if  overlaid  and  comb_just_j;ut_up  then 

redo_screen 

else 

if  overlaid  then  overlay  (false) 
else  overlay (true)  ;  {  overlay  or  split  b,f,c  } 

4  :  if  back" . is_read  then 

begin {  turn  back  off  or  on  } 
if  back" . set_to_di splay  then 
back" . set_to_display : =false 

else  back"' .  set_to_display  :=  true  ; 
if  not  overlaid  or  back" . set_to_di splay  then 
plot  (back'' .  set_to_display,  liftback,back) 
else  redo_screen  ; 

top_of_screen_details;  (on  screen  info  for  graphs) 
end;  {  turn  back  off  or  on  } 

5  :  if  front'' .  is_read  then 

begin{  turn  front  off  or  on  ) 
if  front" . set_to_display  then 
front" . set_to_display :=false 

else  front" . set_to_di splay  :=  true  ; 
if  not  overlaid  or  front" . set_to_di splay  then 
plot (front" . set_to_di splay, 0, front) 
else  redo_screen  ; 
top_of _scr een_detai 1 s  ; 
end;  {  turn  front  off  or  on  ) 
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6  :  if  combo" . is_read  then 

begin{  turn  combo  off  or  on  } 
if  combo" . set_to_di splay  then 
mbc" . set_to_di splay : =false 

else  combo" . set_to_di splay  :=  true; 
if  not  overlaid  or  combo" .  set__to_di  splay  then 
plot (combo". set_to_di splay, round(liftback/2) , combo) 
else  redo_screen  ; 
top_of_screen_details; 
end  ; {  turn  combo  off  or  on  } 

7  :  ;  {  dummy  } 

8  ;  begin  {  grid  sequence  } 

if  grid_up  then  grid_up  :=  false 
else  grid_up  :=  true  ; 

redo_screen 

end  ;  {  grid  sequence  } 

9  :  begin  {  axis  sequence  } 

if  axis_up  then  axis_up  :=  false 
else  axis_up  ;=  true  ; 
redo_screen  ; 
end  ;  {  axis  sequence  } 

end;  {case} 

end  ; {  handle_Screen_menu  } 

procedure  handle_move_menu (  item:  integer  )  ; 
begin  {  handle_move_menu  } 
case  Item  of 

1,2, 3, 4  :  move (  Item  )  ; 

6  :  percent_change  :=  10  ;  {  reset  change  constant} 

7  :  percent_change  :=  5  ;  {  -  also  used  for  wrap  } 

8  :  percent_change  :=  2  ;  {  reset  change  constant} 

9  :  percent_change  :=  1  ;  {  -  also  used  for  wrap  } 

10:  ;  {  dummy  } 

11  :  wrap_left  ; {  if  split,  dont  clear screen  } 

12  :  wrap_right  ; {  if  split,  dont  clearscreen  } 
end; {  case  } 

end  ;  {  handle_move_menu  } 

procedure  handle_resize_menu (  item  :  integer  )  ; 
begin  {  handle_resize_menu  } 
case  Item  of 

1,2, 3, 4  :  change_size(  Item  )  ; 

6  :  percent_change  :=  10  ;  {  reset  change  constant  } 

7  :  percent_change  :=  5  ;  {  also  used  for  wrap  } 

8  :  percent_change  :=  2  ;  {  reset  change  constant  } 

9  :  percent_change  :=  1  ;  {  also  used  for  wrap  } 

1 0  :  ;  {  dummy  } 

11  :  Resize_to_screen  ; {reset  front  to  size  it  began  at} 
end; {  case  } 

end  ;  {  handle_resize_menu  } 

procedure  handle_analysis_menu (  item  :  integer  )  ; 
var  tick  :  boolean  ; 
begin  {  handle_analysis_menu  } 
tick  :=  false  ; 
case  Item  of 

1  :  combine_charts (  0.0  )  ; 

2  :  combine_nlog  ;  {  combine  nlogged  data  } 

3  :  ;  {  dummy  } 

4  :  combining_ratio  ;{  back_weight : f ront_we  normally  1:1  } 
end; { case } 

end  ;  {  handle_analysis_menu  } 
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procedure  handle_scale_menu (  item:  integer  i; {change  colours} 
begin 

colourize(  item  );{  change  the  displayed  colours  } 
redo_screen  ; 
end; 


procedure  HandleMenu (Menulnfo  :  Longlnt); 

{  purpose  decode  Menulnfo  and  carry  out  command  } 

var 

Menu  :  Integer;  {  menu  number  that  was  selected  } 

Item  :  Integer;  {  item  in  menu  that  was  selected  } 

3  :  Boolean;  {  dummy  flag  for  SystemEdit  call  } 

begin 

SetPort (MainPtr ) ;  {  set  window  to  current  graf  port  } 

SelectWindow (MainPtr ) ; {  make  window  active  -ie  using  calc,  etc.  } 
FrontWindow  :=  MainPtr;  {  remember  that  it's  in  front  } 

if  Menulnfo  <>  0  then  begin 

PenNormal;  {  set  the  pen  back  to  normal  } 

Menu  :=  HiWord (Menulnfo) ;  {  find  which  menu  the  command  is  in  } 

Item  :=  LoWord (Menulnfo) ;  {  get  the  command  number  } 

case  Menu  of  {  and  carry  it  out  } 


ApplMenu  :  if  Item  =  1 

then  DoAbout  {  bring  up  "About ... "window  } 
else  DoDeskAcc (Item) ;{ start  desk  accessory  } 
FileMenu  :  handle_file_menu (item)  ; 

EditMenu  :  handle_edit_menu (item)  ; 

ScreenMenu  :  handle_Screen_menu (item)  ; 

MoveMenu  :  handle_move_menu (item)  ; 

ResizeMenu  :  handle_resize_menu (item)  ; 

AnalysisMenu  :  handle_analysis_menu (  item  )  ; 

ColourMenu  :  handle_scale_menu (  item  )  ; 
end; {case  of  Menu} 

HiliteMenu (0) ;  {  reset  menu  bar  } 

UpdateMenu;  {  make  any  changes  needed  } 

end  ; 

end;  (of  proc  HandleMenu} 

procedure  Handled ick (WPtr  :  WindowPtr;  MLoc  :  Point); 

{  purpose  handle  mouse  click  within  window  } 

begin 

if  WPtr  =  MainPtr  {  if  this  is  our  window...  } 

then  if  WPtr  <>  FrontWindow  {  and  it's  not  in  front''...  } 

then  SelectWindow (WPtr)  {  ...then  make  it  active  } 

end;  {  of  proc  HandleClick  } 

procedure  HandleGoAway (WPtr  :  WindowPtr;  MLoc  :  Point); 

{  purpose  handle  mouse  click  in  go-away  box  } 

var 

WPeek  :  WindowPeek;  {  for  looking  at  windows  } 

begin 

if  WPtr  =  FrontWindow  then  begin  {  if  it's  the  active  window  } 
WPeek  :=  WindowPeek (WPtr ) ;  {  peek  at  the  window  } 

if  TrackGoAway (WPtr, MLoc)  then  begin  {and  the  box  is  clicked  } 
if  WPeek^ .WindowKind  =  userKind  then{  if  it's  our  window  } 
begin 

Finished  :=  True  ;  {  then  time  to  stop  } 

if  any_changes_to_file  then  Save_Combination; 

end 

else  CloseDeskAcc (WPeek^ .WindowKind)  {  else  close  DeskAcc  } 
end 
end 

else  SelectWindow (WPtr)  {  else  make  it  active  } 

end;  {  of  proc  HandleGoAway  } 
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procedure  HandleGrow (WPtr  :  WindowPtr;  MLoc  :  Point); 

{  purpose  handle  mouse  click  in  grow  box  } 

hype 
GrowRec 
record 

case  Integer  of 

0  :  (Result  ;  Longlnt); 

1  :  (Height, Width  ;  Integer) 

end; 

var 

Growlnfo  :  GrowRec; 

test  :  real  ; 
begin 

if  WPtr  =  MainPtr  then  with  Growlnfo  do 
begin  {  if  it  s  our  window  } 

Result  :=  GrowWindow (WPtr, MLoc, GrowArea) ;  {  get  amt  of  growth  } 
SizeWindow (WPtr, Width, Height,  True) ;  {  resize  window  } 

if  (heightoO)  and (widthoO)  then  {No  move  growicon,  hght,  wdth=0  !  } 
begin{  movement  of  grow  icon  recognized  } 

EXwindowdots  ;=  Width  ;  {  Standard  scales  are  for  screen  } 
WYwindowdots  :=  Height  ;  {  Use  90%  of  available  window.  } 

window_EX_scale  :=  useEXscreen  *EXwindowdots/back* . EXrange; 
window_WY_scale  :=  useWYscreen  *WYwindowdots/back* . WYrange ;  {both 
offset  &  range  must  be  rescaled,both  used  in  changes  to  offset} 
front'' . EXoffset : =front* . EXoffset*window_EX_scale/prev_EX_scale; 

front* .WYoff set :=front* .WYoffset*window_WY_scale/prev_WY_scale; 
front* . EXrange : =f ront* . EXrange*window_EX_scale/prev_EX_scale; 
front* .WYrange :=front*. WYrange*window_WY_scale/prev__WY_scale ; 
prev_EX_scale  :=  window_EX_scale  ; 
prev_WY_scale  :=  window_WY_scale  ; 

invalRect (WPtr* .portRect)  ;  {  set  up  for  update  } 

if  not  overlaid  then  {split,  rescale  as  req.  } 

begin  liftback  :=  round{  WYwindowdots  /  2  );{ split, redo} 
window_WY_scale  :=  window_WY_scale  /  2  ;  end  ; 
if  info_up  then  {  redo  the  graph  details  } 

begin  info_up  :=  false  ;  {  graph  details  will  be  redone  } 
graph_details;  end  {  in  case  graph  details  up.  } 
else  redo_screen  ;  {  redraw  front,  back  and  combo  charts  } 
penpat (black)  ; 
pensize(0,0)  ; 

DrawGrowIcon (WPtr) ;  {  draw  the  grow  box  } 

end; {  movement  of  grow  icon  recognized  } 
end  ;  {  if  it's  our  window  } 
end;  {  of  proc  HandleGrow  } 


procedure  DoMouseDown (theEvent : EventRecord) ; 

{  purpose  identify  where  mouse  was  clicked  and  handle  it  } 

var 


Location 

theWindow 

MLoc 


WLoc 

begin 

MLoc 

WLoc 


Integer; 

WindowPtr; 

Point; 

Integer; 


:=  theEvent .Where;  {  get  mouse  position 

=  FindWindow (MLoc, theWindow) ; {  get  window,  loc  in  window 
case  WLoc  of  {  handle  window  locations 

InMenuBar  :  HandleMenu (MenuSelect (MLoc) ) ;  {  in  the  menu 

HandleClick (theWindow, MLoc) ;  {  inside  the  window 

HandleGoAway (theWindow, MLoc) ;  {  in  the  go  away  box 

HandleGrow (theWindow, MLoc) ;  {  in  the  grow  box 

DragWindow (theWindow, MLoc, DragArea) ; {in  the  drag  bar; 
SystemClick (theEvent, theWindow)  {  in  a  DA  window 


InContent 
InGoAway 
InGrow 
InDrag  : 
InSysWindow 
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end;  {  of  proc  DoMouseDown  } 


procedure  DoMousetJp  (theEvent :  EventRecord)  ; 

{  purpose  identify  where  mouse  was  clicked  and  handle  it  } 


Location  :  Integer; 

theWindow  :  WindowPtr; 

MLoc  :  Point; 

WLoc  :  Integer; 

begin 

MLoc  :=  theEvent .Where;  {  get  mouse  position  } 

WLoc  :=  FindWindow (MLoc, theWindow) ;  {  get  window,  loc  in  window  } 
case  WLoc  of  {  handle  window  locations  } 

InMenuBar  :  ; 

InContent  :  if  not  list_up  then  equivalent_axis_values (MLoc)  ; 

InGoAway  :  ; 

InGrow  :  ; 

InDrag  :  ; 

InSysWindow  :  ; 

end; (case) 

end;  {  of  proc  DoMouseUp  } 

procedure  DoKeypress (theEvent  :  EventRecord); 

{  purpose  handles  keypress  (keyDown,  autoKey)  event  } 

var 

KeyCh  :  Char; 

begin 

if  (theEvent. modifiers  and  cmdKev)  <>  0  then  begin{menu  key  command} 
KeyCh  ;=  Chr (theEvent .Message  and  charCodeMask) ; (decode  character} 
HandleMenu (MenuKey (KeyCh) )  {  get  menu  and  item} 

end 

else  SysBeep  (1)  {  do  ‘something*  } 

end;  {  of  proc  DoKeypress  } 

procedure  DoUpdate (theEvent  :  EventRecord) ; 

{  purpose  handles  window  update  event  } 

var 

SavePort, theWindow  :  WindowPtr; 
begin 

theWindow  :=  WindowPtr (theEvent .Message) ;  {  find  which  window  } 

if  theWindow  =  MainPtr  then  begin  {  only  update  ours  } 

SetCursor (CursList [watchCursor] AA) ;  {  set  cursor  to  watch  } 

GetPort (SavePort) ;  {  save  current  grafport  } 

SetPort (theWindow) ;  {  set  as  current  port  } 

BeginUpdate (theWindow) ;  {  signal  start  of  update} 

{  and  here's  the  update  stuff!  } 

t  ClearWindow (theWindow) ;  }  {  do  update  stuff  } 

{  now,  back  to  our  program...} 

EndUpdate (theWindow) ;  {  signal  end  of  update  } 

SetPort (SavePort) ;  {  restore  grafport  i 

SetCursor (Arrow)  {  restore  cursor  } 

end 

end;  {  of  proc  DoUpdate  } 


{  get  mouse  position  } 

{  get  window,  loc  in  window  } 
{  handle  window  locations  } 


t 

if  not  list_up  then  equivalent_axis_values (MLoc) 


WindowPtr; 


{  find  which  window  } 
{  only  update  ours  } 
{  set  cursor  to  watch  } 
{  save  current  grafport  } 
{  set  as  current  port  } 
{  signal  start  of  update} 

{  do  update  stuff  } 

{  signal  end  of  update  } 
(  restore  grafport  i 
{  restore  cursor  } 


procedure  DoActivate (theEvent  :  EventRecord); 

var  {  purpose  DoActivate  handles  window  activation  event.  } 
el  :  Integer;  AFlag  :  Boolean;  theWindow  :  WindowPtr; 
begin 

with  theEvent  do  begin 

theWindow  :=  WindowPtr (Message) ;  {  get  the  window  } 

AFlag  :=  Odd(Modifiers) ;  {  get  activate/deactive  } 

if  AFlag  then  begin  {  if  it's  activated...  } 
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SetPort (theWindow)  ; 

FrontWindow  :=  theWindow; 
penpat (black)  ; 
pensize(0,0)  ; 

DrawGrowIcon (theWindow)  ; 
end 

else  begin 

SetPort (ScreenPort) ; 
if  theWindow  =  FrontWindow 
then  FrontWindow  :=  NIL 

end; 

if  theWindow  =  MainPtr  then  begin 
(*  SetltemState (EditM, 1, not  AFlag) ; 
for  el  :=  3  to  6  do 

SetltemState (EditM, el , not  AFlag) ; 
SetltemState (EditM, 8, AFlag) ; *) 

(*  for  el  :=  IM  to  ResizeM  do 
SetltemState (el, 0, AFlag) ;  * ) 
DrawMenuBar 
end 
end 

end;  {  of  proc  DoActivate  } 


{  make  it  the  port  } 
{  know  it's  in  front  } 


{  set  size  box  ) 


{  else  reassign  port  } 
{  if  it's  in  front  } 
{  ...then  forget  that  } 

{  if  it's  our  window  } 
{  update  edit  cmds  } 


{  update  Quit  command  } 

{  update  other  menus  } 

{  update  menu  bar  } 


procedure  Initialize; {  purpose  initialize  everything  for  the  program  } 
var 

Indx,  i  :  Integer; 

Result  :  Real; 

begin 

{  Set  up  turbo's  standard  file  type  and  file  creator  } 

Filetype  :=  ' BINA' ; 

Filecreator  :=  'Gmat'; 

Texttype  : =  ' TEXT ' ; 

TextCreator  :=  'Gmat'; 

{  initialize  all  the  different  managers  } 

InitGraf (@thePort) ;  {  create  a  grafport  for  the  screen  } 


InitFonts;  {  start  up  the  font  manager  } 
InitWindows;  {  start  up  the  window  manager  } 
InitMenus;  {  start  up  the  menu  manager  } 
TEInit;  {  start  up  the  text  manager  for  DAs  ) 
InitDialogs (NIL) ;  {  start  up  the  dialog  manager  } 
FlushEvents (everyEvent, 0) ; (  clear  events  from  previous  state  ) 


{  Get  four  standard  system  cursors,  plus  one  custom  one.} 
for  Indx  :=  iBeamCursor  to  watchCursor  do  begin 

CursList [Indx] : =GetCursor (Indx) ; {  read  from  system  resource  } 
HLock (Handle (CursList [Indx] ) )  {  lock  the  handle  down  } 

end; 

CursList [myCursor]  :=  GetCursor (MyCursID) ; [get  cursor  from  res} 
HLock (Handle (CursList [myCursor] )) ;  {  and  lock  it  down  } 

SetCursor (CursList [watchCursor j ~~) ; {  bring  up  watch  cursor  } 

{  set  up  menus  } 

MenuList [AppleM]  :=  GetMenu (ApplMenu) ; { read  menus  from  resfork} 
MenuList [FileM]  :=  Getmenu (FileMenu) ; 

MenuList [EditM]  :=  Getmenu (EditMenu) ; 

MenuList [ScreenM]  ;=  GetMenu (ScreenMenu) ; 

MenuList [MoveM]  :=  GetMenu (MoveMenu)  ; 

MenuList [ResizeM]  :=  GetMenu (ResizeMenu) ; 

MenuList [AnalysisM]  :=  GetMenu (Analyst sMenu) ; 

MenuList [ColourM]  :=  GetMenu (ColourMenu) ; 

AddResMenu (MenuList [AppleM] , 'DRVR' ); (pull  in  all  desk  accessories} 
for  Indx  :=  1  to  MenuCnt  do  {  place  menus  in  menu  bar  } 

InsertMenu (MenuList [Indx] , 0) ; 

DrawMenuBar;  {  draw  updated  menu  bar  to  screen  } 

{  set  up  window  stuff  } 
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GetWMgrPort (ScreenPort) ;  {  get  grafport  for  all  windows  } 
SetPort (ScreenPort) ;  {  and  keep  hand  just  in  case  } 
MainPtr  :=  GetNewWindow (MainID, @MainRec, Pointer (-1) ); {get  window  } 
DatWPtr  :=  GetNewWindow (DatWID, SDatWRec, Pointer (-1) ); {get  window  } 
SetPort (MainPtr) ;  {  set  window  to  current  graf  port  } 
SelectWindow (MainPtr) ;  {  and  make  window  active  } 
FrontWindow  :=  MainPtr;  {  remember  that  it's  in  front  } 
DrawGrowIcon (MainPtr) ;  {  draw  the  grow  box  in  the  corner  } 
MainPeek  :=  WindowPeek (MainPtr) ; {  get  pointer  to  window  record  } 


MainPeek" . windowKind  :=  UserKind;  {  window  type  =  user  kind(ID=8) } 
ScreenArea  :=  screenBits . Bounds;  {get  size  of  screen(don't  assume)} 
with  ScreenArea  do  begin 

SetRect (DragArea, 0, 20, Right-5,  Bottom-5) ; {  set  drag  region  } 

SetRect (GrowArea, 90, 50, Right, Bottom-40)  {  set  grow  region  } 

end; 

{  Now  the  program-specific  initialization  } 
new (front) ; new (back) ; new (combo) ; 
if  ScreenArea . Right  >  600  then 
begin 

MacII  :=  true; 

the_colour_choice  :=  2  ; { lor2 . . ColMacII } 
printEXof fset  :=  20;printWYoffset  :=  70; {suits  US  letter} 
end 

else  {  in  page  setup  need  to  Expand  137%  for  MacII  size:} 
begin 

MacII  :=  false; {  Expand  137%  for  MacII  size.} 

the_colour_choice  :=  4  ;{  4or5...the  colour  for  monochrm  MacSE } 
printEXoffset  :=  20;  printWYof f set  :=  70; {suits  US  letter} 
end; 

colourize (the_colour_choice)  ;  {  set  colour  variables, line  types  } 
for  i  :=  1  to  4  do  begin  front_EX_trons [i] .ttype  :=  tnone; 

front_EX_trans [i] . n  :=  0.0  ;  end  ; 

f ront_WY_trans  :=  front_EX_trans  ; 
back_EX_trans  ;=  front_EX__trans  ; 
back_WY_trans  :=  front_EX_trans  ; 
save_EX_trans  : =  front_EX_trans  ; 
save_WY_trans  :=  front_EX_trans  ; 
combo_EX_trans  :=  front_EX_trans  ; 
combo_WY_trans  :=  front_EX_trans  ; 

back" . is_read  :=  false  ;  {  The  back  chart  has  not  been  read.} 

back7' .  set_to_di splay  :=  true  ;  {  data  array  boolean  for  item  check} 

back" . showing  :=  false  ;  {  Used  to  make  ticks  go  on  and  off.} 

front" . is_read  :=  false  ;  {  The  front  chart  has  not  been  read} 

front'' .  set_to_di splay  :=  true  ;{  data  array  boolean  for  item  check} 
front" . showing  :=  false  ;  {  Used  to  make  ticks  go  on  and  off.} 

combo" . is_read  :=  false  ;  {  when  charts  combined,  this  true  } 

combo" . set_to_di splay  :=  false; {  data  array  boolean  for  item  check} 
combo" . showing  :=  false  ;  {  Used  to  make  ticks  go  on  and  off.} 

this_front_saved  :=  false  ;  {  boolean  for  set  item  state  } 

this_combo_saved  :=  false  ;  {  boolean  for  set  item  state  } 

percent_change  :=  10  ;  {  Coarse  movement  at  first  } 

liftback  :=  0  ;  {  Set  to  overlay  mode  for  starters  } 

prt_x_mvjpixel  :=  0  ;  {  only  becomes  non  zero  at  do_print} 

prt_y_mv_pixel  :=  0  ;  {  only  becomes  non  zero  at  dojprint} 

overlaid  :=  true  ;  {  Set  to  overlay  mode  for  starters  } 

info_up  :=  false  ;  {  graph  information  not  displayed  } 

list_up  :=  false  ;  {  not  using  data  editing  function  } 

grid_up  :=  true  ;  {  grid  on  and  will  be  plotted  } 

axis_up  ;=  true  ;  {  axis  matching  back  chart  data  } 

wiped  :=  false  ;  {  used  during  move  or  resize  } 

comb_just_put_up  :=  false  ;  {  used  to  control  screen  menu  } 

normal_comb  :=  false  ;  {  front,  back  records  are  combined  } 

nlog_comb  :=  false  ;  {  front,  back  records  nlogcombined  } 
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zero_point . h 

zero_point . v 

cross_point 

back_weight 

f ront_weight 

EXwindowdots 

WYwindowdots 


=  0  ;  {  used  to  set  other  points  to  zero 

=  0  ;  {  used  to  set  other  points  to  zero 

=  zero_point; {  cross_point  -  used  for  erasing. 

=  1.0  ;  {  back  weighting  ratio  during  comb. 

=1.0  ;  {front  weighting  ratio  during  comb. 

=  screenarea. right  -1; {  max  values  same  as  given  by 
=  screenarea. bottom  -  43; {SizeWindow  in  HandleGrow. 
ClearWindow (MainPtr) ;  {  Empty  the  window. 

SizeWindow (MainPtr, EXwindowdots, WYwindowdots, True) ; {resize  window 
DrawGrowIcon (MainPtr) ;  {  draw  the  grow  box  in  the  corner 

centimetre_grid  ;  {  Prepare  the  screen  -  draw  grid 

back"' .  EXrange  :=  useEXscreen  *  EXwindowdots  ; 

WYwindowdots  ; 

*  EXwindowdots  /  back~ . EXrange  ; 


back'' .  WYrange  :=  useWYscreen  * 
window_EX_scale  :=  useEXscreen 
window_WY_scale 
prev_EX_scale  :=  window_EX_scale 
prev_WY_scale  :=  window_WY_scale 
VFlag  :=  False  ; 

FileSelected  :=  False; 
any_changes_to_f ile  :=false; 

New (SPtr) ; 

UpdateMenu; 

Finished  :=  False 
end;  {  of  proc  Initialize  } 


=  useWYscreen  *  WYwindowdots  /  back'' .WYrange  ; 

{  compare  scale  change  in  grow. 
{  compare  scale  change  in  grow. 

{  set  file  opened  false 


{  update  menu  as  needed 
{  set  program  terminator  to  false 


} 

} 

j 

} 

} 

} 

} 

} 


) 

} 

} 


} 

} 


procedure  Cleanup; {to  do  whatever 's  needed  before  returning  to  Findr} 
begin 

DisposeWindow (MainPtr) ;  {  get  rid  of  the  main  window  } 

end;  {  of  proc  Cleanup  } 

procedure  Cur sorAd just;  {  change  cursors  depending  upon  location  ) 

var 

MousePt  :  Point; 

begin 

if  MainPtr  =  FrontWindow  then  with  MainPeekA  do  begin 

GetMouse (MousePt) ;  {  find  where  mouse  is  } 

if  PtlnRect (MousePt, port. portRect)  then  {  if  over  window  then  } 

if  Button  {  if  button  down. . .  } 

then  SetCursor (CursList [plusCursor] {  then  make  a  plus  } 
else  SetCursor (CursList [crossCursor] ~~) {  else  make  a  cross  } 
else  SetCursor (Arrow)  {  else  make  an  arrow  ) 

end 

end;  {  of  proc  CursorAdjust  } 


procedure  HandleEvent (theEvent : EventRecord) 
begin 

case  theEvent 
mouseDown 
mouseUp 
keyDown 
autoKey 
updateEvt 
activateEvt 
end 

end;  {  of  proc  HandleEvent  } 


What  of 

:  DoMouseDown (theEvent) 
;  DoMouseUp (theEvent) ; 

:  DoKeyPress (theEvent) ; 
:  DoKeyPress (theEvent) ; 
:  DoUpdate (theEvent )  ; 

:  DoActivate (theEvent) 


{decode  event, handle  it.) 


{  mouse  button  pushed  } 
{  mouse  button  released  ) 
{  key  pressed  down  ) 
{  key  held  down  } 
{  window  need  updating  } 
{  window  made  act/inact  } 


begin  {  main  body  of  program  } 
Initialize; 
repeat 

SystemTask; 

CursorAdjust; 

if  GetNextEvent (everyEvent, theEvent) 
then  HandleEvent (theEvent) 


{  set  everything  up  } 

{  keep  doing  the  following  } 
{  update  desk  accessories  } 
{  update  which  cursor  } 

{  if  there's  an  event...  } 
{  .  .  .then  handle  it  } 
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until  Finished; 
Cleanup 

end.  {  of  program  } 


1  until  user  is  done  } 

{  clean  everything  up  } 
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